Visual Basic 复习题库
一、单项选择题
1) 下列程序运行后，输出的结果为______。 B=1
Do while (b<40) b=b*(b+1) Loop Print b
a) 42 b) 39 c) 6 d) 1 答案：A
2) 设执行以下程序段时依次输入1、3、5，执行结果为_____。 Dim a(4) As Integer Dim b(4) As Integer For K =0 To 2
a(K+1) =Val(InputBox(“请输入数据：\ b(3-K) =a(K+1) Next K Print b(K)
a) 1 b) 3 c) 5 d) 0 答案：A
3) 下列程序执行后，变量s的值为______。 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 答案：B
5) 当变量x=2,y=5时，以下程序的输出结果为____。 Do until y>5 x=x*y y=y+1 loop print x
a) 2 b) 5 c) 10 d) 20
1
答案：C
6) 当执行以下程序时，在名为lblResult的标签框内将显示_____。 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
a) 字符串15 b) 整数15 c) 字符串5 d) 整数5 答案：A
7) 如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。 X=1 do
x=x+3 print x
loop until(___)
a) x>=8 b) x<=8 c) x>=7 d) x<=7 答案：A
8) 若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。 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
a) 2 b) -1 c) 1 d) 6 答案：A
11) 下列程序的运行后s的值是_____。 S=0
For x=99 to 1 Step-2 s=s+x Next x
2
Print s
a) 100 b) 500 c) 2500 d) 5000 答案：C
12) 下列程序的执行结果是____。 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 答案：A
13) 下列程序的执行结果是_____。 Dim a(5) As String Dim b As Integer Dim I As Integer For I =0 To 5 a(I)=I+1 Print a(I) Next I
a) 123456 b) 6 c) 654321 d) 0 答案：A
14) 下列程序的执行结果为_____。 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 答案：C
15) 下列程序的执行结果为_____。 Dim S As Integer,n As Integer S=0:n=1
Do While n<=100 S=S+n n=n+1 Loop Print S
3
a) 5050 b) 2500 c) 3000 d) 4000 答案：A
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 c) 15 d) 20 答案：C
19) 下面程序执行的结果是____。 Private Sub Form_Click() A$=\ C=Val(A$)+Val(B$) Print C\\100 End Sub
a) 123 b) 3 c) 5 d) 579
4
答案：C
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
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
26) 执行下列程序后，变量a的值为____。
5