31)有如下程序，该程序将______。 For I=1 to 10 step 0 K=k+2 Next I
a) 形成无限循环。
b) 循环体执行一此后结束循环。 c) 语法错误。
d) 循环体不执行即结束循环。 答案：A
32)有如下程序段，该程序段执行完毕后，共循环了________。 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 答案：D
33)有如下程序，该程序的运行结果为______。 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 答案：C
34)以下程序输出1到1000之间所有的偶数之和，请补充完该程序。 Private Sub Command_Click() Dim x As Double For I=0 To 1000 If ____ Then x=x+I End If Next I Print x End Sub
a) i Mod 2 = 0 b) x Mod 2 = 0 c) I Mod 2 <> 0 d) x Mod 2 <> 0 答案：A
35)以下是计算10的阶乘的程序，请补充该程序。 Dim t as single Dim k as Integer k=0:t=1
While_______ k=k+1 t=t*k Wend Print t a) k<10 b) k>10 c) k=10 d) k>=10 答案：A
记录 31 到 35 (总共 351 个记录) 第一页 前一页 下一页 最后一页 vb期末复习题库Visual Basic 期末复习题库 单项选择题判断题填空题编程题
26)执行下列程序后，变量a的值为____。 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) 10 c) 51 d) 100 答案：C
27)执行下列程序后，X的值为______。 X=3 y=6
Do While y<=6 x=x*y y=y+1 Loop a) 3 b) 6 c) 18 d) 20
答案：C
28)执行下列程序段后，整型变量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 a) 537 b) 2427 c) 24328 d) 240328 答案：C
29)执行完下面的程序段后，循环将执行____次。 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 答案：C
30)有如下语句，执行后该段语句的循环次数是_____。 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 答案：A
21)下面程序段的循环结构执行后， 的输出值是_____。 程序段为：
For I=1 to 10 step 2 y=y+I Next I print I;
a) 25 b) 10 c) 11
d) 因为Y的初值不知道，所以不确定 答案：C
22)写列程序段的执行结果____。 A=\ for I=6 to 2 step -2 x=mid(a,I,I) y=left(a,I) z=right(a,I) z=x & y & z next I
print Ucase(z) a) ABA
b) AABAAB c) BBABBA d) ABBABA 答案：C
23)以下语句输出结果是（在立即窗口中）_____。 A=\ b=\ Print a;b
a) Beijing ShangHai b) Abeijing ShangHai c) BeijingShangHai d) Abeijing 答案：C
24)有如下程序： For I=1 To 3
For j=5 To 1 Step-1 Print I+j Next j,I
其循环执行的次数为______。 a) 12 b) 13 c) 14 d) 15 答案：D
25)有如下程序段，该程序执行后，变量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 到 25 (总共 351 个记录) 第一页 前一页 下一页 最后一页 vb期末复习题库Visual Basic 期末复习题库 单项选择题判断题填空题编程题
16)下列程序的执行结果为_____。 A=100:b=50 If a>b Then a=a-b Else
b=b+a End if Print a a) 50 b) 100 c) 200 d) 10 答案：A
17)下列程序的执行结果为________。 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 答案：A
18)下面程序执行后，X的结果为_____。 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