if not x>0 then x=y-3 else
y=x+3
print x-y;y-x end if end if
A.-3 3 B.5 -8 C.3 -3 D.25 -25 第47小题
以下程序段执行后整型变量n 的值为__B___。 N=0
for I=1 to 20 step 5 n=n+1 next I A.3 B.4 C.5 D.2 第48小题
下列程序运行后，输出的结果为_A_____。 B=1
Do while (b<40) b=b*(b+1) Loop Print b A.42 B.39 C.6 D.1 第49小题
下列程序段的执行结果是__A___。 N=10
For k=n To 1 Step-1 x=Sqr(k) x=x-2 Next k Print x-2 A.-3 B.-1 C.1 D.1.16 第50小题
下列程序运行后，变量s的值为___A___。 J=0:s=0
For I=1 To 4 j=j+I s=s+j Next I
A.20 B.10 C.5 D.15 第五章 第1小题
以下程序输出的结果为___A___。 X=1 y=4
Do Until y>4 x=x*y y=y+1 Loop Print x
A.4 B.8 C.12 D.16 第2小题
以下程序段的执行结果是__B___。 X=2:y=1
If x*y<1 Then y=y-1 Else
y=-1
Print y-x>0 End If
A.Ture B.False C.-1 D.1 第3小题
下列循环语句将执行__D____次。 A=100 Do
Print a a=a+1
Loop until a<=10 A.1 B.10 C.100 D.死循环 第4小题
下列程序执行后，变量s的值为__B____。 Dim s As long ,x As Integer
s=0:x=1
Do While (x<10) s=s+x x=x+2 Loop Print s
A.10 B.25 C.50 D.100 第5小题
当变量x=2,y=5时，以下程序的输出结果为_C___。
Do until y>5 x=x*y y=y+1 loop
print x
A.2 B.5 C.10 D.20 第6小题
当执行以下程序时，在名为lblResult的标签框内将显示__A___。
Private Sub cmdlt_click() Dim I,R R=0
For I=1 To 5 Step 1 R=R+I Next I
lblResult.Caption=Str(R) End Sub End Sub
A.字符串15 B.整数15 C.字符串5 D.整数5 第7小题
如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入__A____。 X=1 do
x=x+3 print x loop until(___)
A.x>=8 B.x<=8 C.x>=7 D.x<=7 第8小题
若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为__A____。 If a>5 then
if b<4 then c=a-b else
c=b-a End if
elseif b>3 then c=a*b else
c=a mod b End if
elseif b>3 then c=a*b else A.2 B.-1 C.1 D.6 第9小题
下列程序的运行后s的值是_C____。 S=0
For x=99 to 1 Step-2 s=s+x Next x Print s
A.100 B.500 C.2500 D.5000 第10小题
下列程序的执行结果是_A___。 K=0
For I=1 To 3 a=I^I^K print a; Next I
A.1 1 1 B.1 2 3 C.0 0 0 D.1 4 9 第11小题
下列程序的执行结果为_C____。 Dim intsum As Integer Dim I As Integer intsum=0
For I=20.2 To 5 Step -4.7 intsum=intsum +I Next I Print intsum A.150 B.200 C.50 D.0 第12小题
下列程序的执行结果为__A __。 Dim S As Integer,n As Integer S=0:n=1
Do While n<=100 S=S+n n=n+1 Loop Print S
A.5050 B.2500 C.3000 D.4000 第13小题
要输出简单信息，可以使用_ B ____。 A.InputBox函数 B.Msg Box函数 C.ShowFont方法 D.Show Printer方法 第14小题
要使循环体至少执行一次，应使用__C___循环。
A.For-next B.While-wend
C.Do--Loop while|until D.do[while|until]-loop 第15小题
执行下列程序后，变量a的值为_C___。 Dim I as integer dim a as integer a=0
for I=0 to 100 step 2 a=a+1 next I A.1 B.10C.51 D.100 第16小题
下面程序执行后，X的结果为__C___。 X=0
For I =1 to 5 For j=I to 5 X=X+1 Next j Next I Print X A.5 B.10 C.15 D.20 第17小题
下列的程序段执行后，X的值为_B___。 X=0
for I=1 to 10 for j=I to 10 x=x+1 next j next I
A.50 B.55 C.100 D.105 第18小题
下面程序段的循环结构执行后， 的输出值是_C____。 程序段为：
For I=1 to 10 step 2 y=y+I Next I print I; A.25 B.10 C.11
D.因为Y的初值不知道，所以不确定 第19小题
以下语句输出结果是(在立即窗口中)_C____。
A=\ b=\ Print a;b
A.Beijing ShangHai B.Abeijing ShangHai C.BeijingShangHai D.Abeijing
第20小题
有如下程序段，该程序执行后，变量a的值为______。
For I=1 To 2
For J=I To 2
For K=1 To J a=a+2 Next K Next J Next I A.2 B.8 C.10 D.20 C
第21小题
执行下列程序后，X的值为__C____。 X=3 y=6
Do While y<=6 x=x*y y=y+1 Loop
A.3 B.6 C.18 D.20 第22小题
执行下列程序段后，整型变量c的值为_C__。 A=24 b=328
select case b\\10 case 0
c=a*10+b case 1 to 9 c=a*100+b case 10 to 99 c=a*1000+b end select
case 10 to 99 c=a*1000+b end select
A.537 B.2427 C.24328 D.240328 第23小题
执行完下面的程序段后，循环将执行_C___次。
For I=1.7 To 5.9 Step 0.9 a=a+1 Print a Next I
A.3 B.4 C.5 D.6 第24小题 有如下语句，执行后该段语句的循环次数是_A____。
Dim s,I,j as integer For I =1 to 3
For j=3 To 1 Step-1 S=I*j Next j Next I A.9 B.10 C.3 D.4 第25小题
有如下程序，该程序将___A___。 For I=1 to 10 step 0 K=k+2 Next I
A.形成无限循环。B.循环体执行一此后结束循环。 C.语法错误。
D.循环体不执行即结束循环。 第26小题
有如下程序段，该程序段执行完毕后，共循环了__D______。 For I=1 To 5
For j=1 To I
For k=j To 4 Print \ Next k Next j Next I
A.4 B.5 C.38 D.40 第27小题 有如下程序，该程序的运行结果为__C____。 Dim k As Integer n=5:m=1:k=1
Do While k<=n m=m*2 k=k+1 Loop Print m A.1 B.5 C.32 D.40 第28小题
以下程序输出1到1000之间所有的偶数之和，请补充完该程序。
Private Sub Command_Click() Dim x As Double For I=0 To 1000 If _A___ Then x=x+I End If Next I Print x End Sub End Sub
A.i Mod 2 = 0 B.x Mod 2 = 0 C.I Mod 2 <> 0 D.x Mod 2 <> 0 第29小题
以下是计算10的阶乘的程序，请补充该程序。
Dim t as single Dim k as Integer k=0:t=1
While__A_____ k=k+1 t=t*k Wend Print t
A.k<10 B.k>10 C.k=10 D.k>=10 第30小题
下列程序的执行结果为__A______。 Dim intsum As Integer Dim I As Integer intsum=0
For I=0 To 50 Step 10 intsum=intsum+I Next I Print intsum A.150 B.200 C.50 D.0 第31小题
下列命令按钮事件过程执行后，输出结果是__C___。
For m=1 to 1000 step 2 a=10
for n=1 to 20 step 2 a=a+2 next n next m print a
A.1200 B.1000 C.30 D.20 第32小题 语句PRINT“SGN(-26)=”；SGN(-26)的输出结果为__D__
A.SGN(-26)=26 B.SGN(-26)=-26 C.SGN(-26)=+1 D.SGN(-26)=-1 第33小题
在一个语句行内写多条语句时，语句之间应该用___D_____分隔
A.逗号 B.分号 C.顿号 D.冒号 第34小题
Print方法不允许在_B___对象上输出数据。 A.窗体 B.代码窗口 C.立即窗口 D.图片框 第35小题
Round(1.512)的值是__C____。 A.1.5 B.1.51 C.2 D.1.50 第36小题 执行语句Print format(5459.478,\，正确的输出是__B____。
A.5459.48 B.5，459.48
C.5，459，478 D.5，459。47 第37小题
下列是一个循环结构的程序，循环体内的语句将执行_D____次。 K=0
For I=1 to 10
For j=1 to 100 K=K+1 Next j Next I
A.0 B.10 C.100 D.1000 第38小题
下列程序的运行结果为____A____。 For I=1 to 3 d(I)=2*I-1 ?d(I) Next I
A.1 3 5 B.2 4 6 C.1 4 6 D.5 6 7 第39小题
下列程序共执行了___D____循环。 Dim intsum As Integer Dim I As Integer Dim j As Integer
For I=1 To 10 Step 2 For j=1 To 5 Step 2 intsum=intsum+j Next j Next I
A.10 B.20 C.25 D.15 第40小题
下列程序段运行后，输出结果是_ C___。 B=1
Do until b>7 b=b*(b+1) Loop Print b
A.7 B.39 C.42 D.1 第41小题
下列程序段的执行结果为__B_____。 M=0
For I=1 To 3
For J =5 To 1 Step-1 N = N+1 Next J,I Print N;J;I
A.12 0 4 B.15 0 4 C.12 3 1 D.15 3 1 第42小题
下列程序段的执行结果为_C_____。 K=0
For J=1 to 2
For I = 1 to 3 K =I+1 Next I
For I = 1 to 7 K = K+1 Next I Next J Print K Next I Next J Print K
A.10 B.6 C.11 D.16