2012年计算机二级VB控制结构练习题及答案
VB控制结构
一、 单选题
1. 下面的程序运行后，显示的结果是________。
Dim x%
If x Then Print x+1 Else Print x
A） 1
B） 0
C） 显示错误信息
D） 2
2. 语句If x = 1 Then y = 1, 下面说法正确的是______。
A） x = 1 和 y = 1均为赋值语句
B） x = 1 和 y = 1均为关系表达式
C） x = 1 为赋值语句，y = 1 为关系表达式
D） x = 1 为关系表达式，y = 1 为赋值语句
3. 下面分段函数 , 下面不正确的程序段是______。
A） If x >= 1 then f=sqr(x+1)
f=x*x+3
B） If x >= 1 then f=sqr(x+1)
If x < 1 then f=x*x +3
C） If x >= 1 then f=sqr(x+1) _
Else f = x*x +3
D） If x < 1 then f=x*x +3 _
Else f=sqr(x+1)
4. 计算函数的值。 , 下面程序段中正确的是______。
A）If x < 0 then y = 0
If x < 1 then y = 1
If x < 2 then y = 2
If x >=2 then y = 3
B）If x >= 2 then y = 3
If x >= 1 then y = 2
If x > 0 then y = 1
If x < 0 then y = 0
C）If x < 0 then
y = 0
ElseIf x > 0 then
y = 1
ElseIf x > 1 then
y = 2
Else
y = 3
End If
D）If x >= 2 then
y = 3
ElseIf x >= 1 then
y = 2
ElseIf x >= 0 then
y = 1
Else
y = 0
End If
5. 下面的程序段，显示的结果是 ______。
Dim x
x= Int(RnD） + 5
Select Case x
Case 5
Print “优秀”
Case 4
Print “良好”
Case 3
Print “及格”
Case Else
Print “不及格”
End Select
A） 不及格
B） 良好
C） 及格
D） 优秀
6. 下面程序段求两个数中较大数，________不正确。
A） Max = IIF(x > y, x, y)
B） If x > y Then Max = x Else Max = y
C） Max = x
If y >= x Max = y
D） If y >= x Max = y
Max = x
7. 下列循环语句能正常结束的是________。
A） i = 5
Do
i = i + 1
Loop Until i < 0
B） i = 1
Do
i = i + 2
Loop Until i = 10
C） i = 10
Do
i = i - 1
Loop Until i < 0
D） i = 6
Do
i = i - 2
Loop Until i = 1
8. 下面的程序段的运行结果是 ________。
For i = 3 To 1 Step -1
Print Spc(5-i)
For j = 1 To 2 * i-1
Print “$”;
Next j
Next i
A） $
$$$
$$$$$
B）$$$$$
$$$
$
C）$$$$$
$$$
$
D）$$$$$
$$$
$
9. 下列程序当在文本框输入“ABCD”时，窗体上显示的是________ 。
Private Sub Text1_Change()
Print Text1.Text；
End Sub
A） ABCD
B） A
B
C
D
C） AABABCABCD
D） A
AB
ABC
ABCD
10. 下列哪个程序段不能正确显示1！、2！、3！、4！的值________ 。
A）for i = 1 to 4
n = 1
for j = 1 to i
n = n*j
next j
print n
next i
B）for i = 1 to 4
for j = 1 to i
n = 1
n = n*j
next j
print n
next i
C）n = 1
for j = 1 to 4
n = n*j
print n
next j
D）n = 1
j = 1
do while j <= 4
n = n*j
print n
j = j+1
loop
编辑推荐：
2011年计算机二级VB考试冲刺模拟试题及答案
2011年计算机二级VB考试记录文件考前冲刺习题及答案
2011年计算机二级VB考试形参实参考前冲刺习题及答案
11. 下列程序段的执行结果为______。
A=0:B=1
A=A+B:B=B+A:Print A;B
A=A+B:B=B+A:Print A;B
A）1 2
3 5
B）1 1
3 5
C）1 3
3 4
D）1 2
3 4
12. 变量未赋值时，数值型变量的值为______。
A）0
B）空串""
C）Null
D）没任何值
13. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
For n=1 To 20
If n Mod 3<>0 then m=m+n\3
Next n
print n
End sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是______。
A）15
B）18
C）21
D）24
14. 窗体中存在命令按钮Command1，其Click事件代码如下：
Private Sub Command1_Click()
X = 2
Y = 1
If X * Y < 1 Then Y = Y - 1 Else Y = -1
Print Y - X > 0
End Sub
程序运行后，单击命令按钮，输出结果为______。
A）True
B）False
C）-1
D）1
15. 设a=5，b=6，c=7，d=8，执行下列语句后，x的值为______。
x=IIf((a>B） And (c>D） , 10, 20)
A）10
B）20
C）True
D）False
16. 执行以下程序段
a$= "abbacddcba"
For i = 6 To 2 Step -2
X= Mid(a,i,i)
Y= Left(a,i)
Z= Right(a,i)
Z= UCase(X & Y & Z)
Next i
Print z
输出结果为______。
A）ABA
B）BBABBA
C）ABBABA
D）AABAAB
17. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
c=1234
c1=Trim(Str(C）)
For i=1 To 4
Print ____
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
1
12
123
1234
则在下划线处应填入的内容为______。
A）Right(c1,i)
B）Left(c1,i)
C）Mid(c1,i,1)
D）Mid(c1,i,i)
18. InputBox函数返回值的类型为______。
A）数值
B）字符串
C）变体
D）数值或字符串（视输入的数据而定）
19．MsgBox函数返回值的类型为______。
A）整型数值
B）字符串
C）变体
D）数值或字符串（视输入的数据而定）
20. 窗体上画一个命令按钮和一个文本框，其名称分别为command1 和text1，把文本框的text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click()
a=InputBox("Enter an Integer")
b=InputBox("Enter an Integer")
Text1.Text=b+a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。
A）108
B）18
C）810
D）出错
编辑推荐：
2011年计算机二级VB考试冲刺模拟试题及答案
2011年计算机二级VB考试记录文件考前冲刺习题及答案
2011年计算机二级VB考试形参实参考前冲刺习题及答案
21. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As Integer,s As Integer
a=8
s=1
Do
s=s+a
a=a-1
Loop While a<=0
Print s;a
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是______。
A）7 9
B）34 0
C）9 7
D）死循环
22. 下面程序段的执行结果为______。
I=4
A=5
Do
I=I+1
A=A+3
Loop Until I>=9
Print"I=";I
Print"A=";A
A）I=9 B）I=10 C）I=10 D）I=9
A=20 A=20 A=23 A=23
23. 以下能够正确计算n!的程序是______。
A）Private Sub Command1_Click()
N = 5 : X = 1
Do
x = x * i
i = i + 1
Loop While i < n
Print x
End Sub
B）Private Sub Command1_Click()
N = 5 : x = 1 : i = 1
Do
x = x * i
i = i + 1
Loop While i < n
Print x
End Sub
C）Private Sub Command1_Click()
N = 5 : x = 1 : i = 1
Do
x = x * i
i = i + 1
Loop While i <= n
Print x
End Sub
D）Private Sub Command1_Click()
N = 5 : x = 1 : i = 1
Do
x = x * i
i = i + 1
Loop While i > n
Print x
End Sub
24. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim num As Integer
num=1
Do Until num>6
Print num;
num=num+2.4
Loop
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是______。
A）1 3.4 5.8
B）1 3 5
C）1 4 7
D）无数据输出
25. 设有如下程序段
x=2
For i=1 to 10 step 2
x=x+i
Next
运行以上程序后，X的值是______。
A）36
B）27
C）38
D）57
26. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For i=0 To 50
i=i+3
n=n+1
If i>10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是______。
A）2
B）3
C）4
D）5
27. 下列程序段的执行结果为______。
X=6
For K=1 To 10 Step -2
X=X+K
Next K
Print K;X
A）-1 6
B）-1 16
C）1 6
D）11 31
28. 执行以下程序段
Dim x As Integer, i As Integer
x = 0
For i = 20 To 1 Step -2
x = x + i \ 5
Next i
后，x的值为______。
A）16
B）17
C）18
D）19
29. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
n=Val(Text1.Text)
For i=2 To n
For j=2 To Sqr(i)
If i Mod j=0 Then Exit For
Next j
If j>Sqr(i) Then Print i
Next i
End Sub
该事件过程的功能是______。
A）输出n以内的奇数
B）输出n以内的偶数
C）输出n以内的素数
D）输出n以内能被j整除的数
30. 新建立窗体中画一个命令按钮，其中事件代码如下：
For x=4 To 1 Step -1
For y=1 To 5-x
Print Tab(y+5);"*";
Next y
Next x
窗体运行后，单击命令按钮，输出结果是______。
A）****
***
**
*
B）*
**
***
****
C）*****
****
***
**
D）*
***
*****
编辑推荐：
2011年计算机二级VB考试冲刺模拟试题及答案
2011年计算机二级VB考试记录文件考前冲刺习题及答案
2011年计算机二级VB考试形参实参考前冲刺习题及答案
31. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
For i=1 To 4
x=4
For j=1 To 3
x=3
For k=1 To 2
x=x+6
Next k
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，输出结果是______。
A）7
B）15
C）157
D）538
32. 在窗体上有一个命令按钮，并有如下代码，程序执行后，单击命令按钮输出结果为______。
Private Sub Command1_Click()
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
End Sub
A）10
B）6
C）11
D）16
33. 在窗体上画一个命令按钮和两个标签，其名称分别为Command1）Label1和Label2，然后编写如下事件过程：
Private Sub Command1_Click()
a=0
For i=1 To 10
a=a+1
b=0
For j=1 To 10
a=a+1
b=b+2
Next j
Next i
Label1.Caption=Str(A）
Label2.Caption=Str(B）
End Sub
程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是______。
A）10和20
B）20和110
C）200和110
D）110和20
34. 有一个分段函数，当X<0时，Y=-1；当X=0时，Y=0；当X>0时，Y=1。该分段函数在程序段中可表达为______。
A）If X<0 Then Y=-1
If X=0 Then Y=0
Else Y=1
B）If X>0 Then Y=1
If X=0 Then Y=0
Else Y=-1
C）If X<0 Then Y=-1
ElseIf X=0 Then Y=0
Else Y=1
End If
D）If X<0 Then
Y=-1
ElseIf X=0 Then
Y=0
Else
Y=1
End if
35. 下列语句正确的是______。
A）If X<3*Y , X>Y Then Y=X3
B）If X<3*Y And X>Y Then Y=X3
C）If X<3*Y : X>Y Then Y=X3
D）If X<3*Y And X>Y Then Y=X* *3
36. 下列程序的执行结果为______。
A=75
If A>60 Then
I=1
ElseIf A>70 Then
I=2
ElseIf A>80 Then
I=3
ElseIf A>90 Then
I=4
EndIf
Print"I=";I
A）I=1
B）I=2
C）I=3
D）I=4
37. 设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < B） Or (c > D）, "A", "B")后，x的值为______。
A）"a"
B）"b"
C）"B"
D）"A"
38. 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
for I=1 To 4
For J=0 To I
Print Chr$(65+I);
Next J
Next I
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容为是______。
A）BB
CCC
DDDD
EEEEE
B）A
BB
CCC
DDDD
C）B
CC
DDD
EEEE
D）AA
BBB
CCCC
DDDDD
39. 有如下程序：
Private Sub Form_Click()
xcase=1
t=InputBox(“请输入一个数：”)
Select Case t
Case Is>0
Y=xcase+1
Case Is=0
Y=xcase+2
Case Else
Y=xcase+3
End Select
Print xcase;Y
End Sub
若输入-1，输出结果为：
A）1 4
B）1 3
C）1 2
D）1 1
40. 下列程序段中，若要使输出结果为输入的两个数中较大者的平方，空白处应填写______语句。
x=Val(InputBox(“请输入 x的值：”))
y=Val(InputBox(“请输入 y的值：”))
s=x : ______________
s=s*s
Print s
A）If (x C）If (x 编辑推荐： 2011年计算机二级VB考试冲刺模拟试题及答案 2011年计算机二级VB考试记录文件考前冲刺习题及答案 2011年计算机二级VB考试形参实参考前冲刺习题及答案 41. 设X初值为0，则下列循环语句执行后，X的值等于_______。
For i=1 To 10 Step 2
X=X+I
Next i
A）25
B）36
C）24
D）27
42. 执行以下程序段时，______。
x=1
Do While x<>0
x=x*x
print x;
Loop
A）循环体将执行1次
B）循环体将执行0次
C）循环体将执行无限次
D）系统将提示语法错误
43. 设窗体中包含1个命令按钮Command1,1个标签Label1;并有以下的事件过程。程序运行后，单击Command1按钮，标签中显示的内容是_______。
Private Sub Command1_Click()
Dim I As Integer,n As Integer
I=1: n=0
Do While I<10
n=n+I
I=I*(I+1)
Loop
Label1=I & ”-” & n
End Sub
A）6-3
B）24-9
C）42-9
D）6-9
44. 有如下程序：
Do
循环体
Loop While <条件>
则以下叙述中错误的是_______。
A）若“条件”是一个为0 的常数，则一次也不执行循环体
B）“条件”可以是关系表达式、逻辑表达式或常数
C）循环体中可以使用Exit Do语句
D）如果“条件”总是为True，则不停地执行循环体
45. 有如下程序：
For i=1 to 3
For j=5 to 1 Step –1
Print i*j
Next j
Next i
则语句Print i*j的执行次数是_______。
A）15
B）16
C）17
D）18
46. 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer, x As Integer
For i = 1 To 6
If i = 1 Then x = i
If i <= 4 Then
x = x + 1
Else
x = x + 2
End If
Next i
Print x
End Sub
程序运行后，单击命令按钮，其输出结果为_______。
A）9
B）6
C）12
D）15
47. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
c = "ABCD"
For n = 1 To 4
Print _________
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
D
CD
BCD
ABCD
则在________处应填入的内容为_______。
A）Left(c,n)
B）Right(c,n)
C）Mid(c,n,1)
D）Mid(c,n,n)
48. 如果A为整数，且|A|>=100，则打印“OK”，否则打印“Error”，表示这个条件语句的单行语句是______。
A） If Int(A）=A And Sqr(A）>=100 Then Print "Ok" Else Print "Error"
B） If Int(A）=A And (A>=100,A<=-100) Then Print "Ok" Else Print "Error"
C） If Fix(A）=A And Abs(A）>=100 Then Print "Ok" Else Print "Error"
D） If Fix(A）=A And A>=100 And A<=-100 Then Print "Ok" Else Print "Error"
49. 在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:
Private Sub Command1_Click()
a = InputBox("请输入日期(1~31)")
t = "旅游景点:" _
& IIf(a > 0 And a <= 10, "长城", "") _
& IIf(a > 10 And a <= 20, "故宫", "") _
& IIf(a > 20 And a <= 30, "颐和园", "")
Text1.Text = t
End Sub
程序运行后,如果从键盘输入16,则在文本框中显示的内容是_______。
A）旅游景点：长城故宫
B）旅游景点：长城颐和园
C）旅游景点：颐和园
D）旅游景点：故宫
50. 下列程序段显示______个“*”。
For i=1 to 5
For j=2 to 5
Print ”*”
Next j
Next i
A）25
B）10
C）20
D）15在 编辑推荐： 2011年计算机二级VB考试冲刺模拟试题及答案 2011年计算机二级VB考试记录文件考前冲刺习题及答案 2011年计算机二级VB考试形参实参考前冲刺习题及答案 51. 要使下面程序段能正确显示1！、2！、3！、4！的值，第一行横线处应填写______。
____________
For j=1 to 4
n=n*j
Print n
Next j
A）n=0
B）n=1
C）j =1
D）j=0
52．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a = "ABBACKDIEKEI"
For I = 9 To 2 Step -3
x = Mid(a, I, I)
y = Left(a, I)
z = Right(a, I)
z = x & y & z
Next I
Print z
End Sub
程序运行后，如果单击命令按钮，则输出结果是______。
A）BACABBKEI
B）EKEIABBACKDIEAACKEIEKEI
C）DEIEKEIABBACKDIEKEI
D）ACKABBKEI
53．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
M1=1
M2=2
Do While M2<>5
M1=M1*M2
M2=M2+1
Loop
Print "M1=";M1,"M2=";M2
End Sub
程序运行后，如果单击命令按钮，输出结果是______。
A）M1= 24 M2= 5
B）M1= 1 M2= 2
C）M1= 24
M2= 5
D）M1= 1
M2= 2
54．阅读下面的程序段：
For i=1 To 3
For j=1 To i
For k=j To 3
a=a+1
Next k
Next j
Next i
执行上面的三重循环后，a 的值为______ 。
A） 3
B） 9
C） 14
D） 21
55. 在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Commandl），然后编写如下事件过程：
Private Sub Commandl_Click()
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为______。
A）1和0
B）2和72
C）3和50
D）4168
56. 在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
Do While x<20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
&a, mp;n, bsp; Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是______。
A）15和1
B）27和3
C）195和3
D）600和4
57. 下列语句组中,不能循环100次的有 ______。
A）N=0
DO
N=N+1
LOOP UNTIL N>=100
B）N=0
DO
N=N+1
LOOP WHILE N<100
C）N=0
DO
N=N+1
LOOP UNTIL N<100
D）N=0
DO WHILE N<100
N=N+1
LOOP
58. 假定有如下事件过程：
Private Sub Form_Click()
Dim x As Integer
x=1
n=0
Do While x<28
x=x*3
n=n+1
Loop
Print x, n
End Sub
程序运行后，单击窗体，输出结果是______。
A）81 4
B）56 3
C）28 1
D）243 5
59. 新建窗体上新建立一个命令按钮，其中有如下事件代码：
Private Sub Command1_Click()
I = 0
For G = 10 To 19 Step 3
I = I + 1
Next G
Print I
End Sub
窗体运行后，单击命令按钮，输出结果为______。
A）3
B）4
C）5
D）6
60. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x = InputBox("input")
Select Case x
Case 1, 3
Print "分支 1"
Case Is > 4
Print "分支 2"
Case Else
Print "Else 分支"
End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是______。
A）分支 1
B）分支 2
C）Else 分支
D）程序出错 编辑推荐： 2011年计算机二级VB考试冲刺模拟试题及答案 2011年计算机二级VB考试记录文件考前冲刺习题及答案 2011年计算机二级VB考试形参实参考前冲刺习题及答案 61. 以下Case语句中错误的是______。
A）Case 0 To 10
B）Case Is>10
C）Case Is>10 And Is<50
D）Case 3,5,Is>10
62. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x = 0
n = InputBox("")
For i = 1 To n
For j = 1 To i
x = x + 1
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是______。
A） 3
B） 4
C） 5
D） 6
63. 下列程序代码，执行后单击鼠标结果为______。
Private Sub Form_Click()
A = 0: B = 0
For I = -1 To -2 Step -1
For J = 1 To 2
B = B + 1
Next J
A = A + 1
Next I
Print A; B
End Sub
A）2 4
B）-2 2
C）4 2
D）2 3
64. Private Sub Form_Click()
Dim Check,Counter
Check=0
Do
Do While Counter<20
Counter=Counter+1
If Counter=10 Then
Check=False
Exit Do
End If
Loop
Loop Until Check=False
Print Counter, Check
End Sub
程序运行后，单击窗体，输出结果为______。
A）15 0
B）20 -1
C）10 True
D）10 False
65. 设有如下程序：
Private Sub Command1_Click()
Dim sum As Double,X As Double
sum=0
n=0
For i=1 To 5
x=n/i
n=n+1
sum=sum+x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是______。
A）1+1/2+2/3+3/4+4/5
B）1+1/2+2/3+3/4
C）1/2+2/3+3/4+4/5
D）1+1/2+1/3+1/4+1/5
66. 有如下程序：
Private Sub Form_Click()
Dim i As Integer, Sum As Integer
Sum=0
For i=2 to 10
If i Mod 2<>0 And i Mod 3=0 Then
Sum=Sum+i
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为______。
A）12
B）30
C）24
D）18
67. 设有如下程序
Private Sub Command1_Click()
Dim c As Integer,d As Integer
c=4
d=InputBox("请输入一个整数")
Do While d>0
If d>c Then
c=c+1
End If
d=InputBox("请输入一个整数")
Loop
Print c+d
End Sub
程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是______。
A）12
B）11
C）10
D）9
68. 下列程序段的执行结果为______。
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.16227765 编辑推荐： 2011年计算机二级VB考试冲刺模拟试题及答案 2011年计算机二级VB考试记录文件考前冲刺习题及答案 2011年计算机二级VB考试形参实参考前冲刺习题及答案 69. 在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程：
Private Sub Command1_Click()
s = 0
For i = 1 To 15
x = 2 * i -1
If x Mod 3 = 0 Then s =s + 1
Next i
Label1.Caption = s
End Sub
程序运行后，单击命令按钮，则标签中显示的内容是______。
A）1
B）5
C）27
D）45
70. 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do Until x=-1
a=InputBox("请输入a的值")
a=Val(A）
b=InputBox("请输入b的值")
b=Val(B）
x=InputBox("请输入x的值")
x=Val(x)
a=a+b+x
LOOP
Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，输出结果为______。
A）2
B）3
C）14
D）15
71．语句：If 表达式 Then……中的表达式不可以是______表达式。
A）算术
B）逻辑
C）关系
D）字符
72．下列语句执行后，变量w的值是______。
W=Choose(weekday(”2009,4,1”), ”Red”, ”Green”, ”Blue”, ”Yellow”)
A）Null
B）Red
C）Blue
D）Yellow
73．下面if语句统计满足性别为男、职务为副教授以上、年龄小于40岁条件的人数，不正确的语句是______。
A）if sex=”男” And age<40 And InStr(duty, ”教授”)>0 Then n=n+1
B）if sex=”男” And age<40 And (duty=”教授” Or duty=”副教授”) Then n=n+1
C）if sex=”男” And age<40 And Right(duty, 2)=”教授” Then n=n+1
D）if sex=”男” And age<40 And duty=”教授” And duty=”副教授” Then n=n+1
74. 关于Do…Loop循环结构执行循环体次数的描述正确的是_______。
A）Do While…Loop循环和Do…Loop Until循环至少都执行一次
B）Do While…Loop循环和Do…Loop Until循环可能都不执行
C）Do While…Loop循环至少执行一次，Do…Loop Until循环可能不执行
D）Do While…Loop循环可能不执行，Do…Loop Until循环至少执行一次
75.下面的程序段的运行结果是_______。
Private Sub Command1_Click
For i=1 To 5
n=0
For j=i To 5
n=n+1
Next j
Next i
Print n
End Sub
A）1
B）5
C）10
D）15 编辑推荐： 2011年计算机二级VB考试冲刺模拟试题及答案 2011年计算机二级VB考试记录文件考前冲刺习题及答案 2011年计算机二级VB考试形参实参考前冲刺习题及答案 二、 填空题
1. 下面程序的输出结果是___【1】____ 。
x = Int(RnD） +3
If x^2 > 8 Then y = x^2 + 1
If x^2 = 9 Then y = x^2 - 2
If x^2 < 8 Then y = x^3
2. 下面程序的功能是___【2】____。
Dim n%，m%
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If IsNumeric(Text1.Text) Then
Select Case Text1.Text Mod 2
Case 0
n = n + Text1.Text
Case 1
m = m + Text1.Text
End Select
End If
Text1.Text = ""
Text1.SetFocus
End If
End Sub
3．下面的程序是检查输入的算术表达式中圆括号是否配对。并显示相应的结果。本程序在文本框输入表达式，边输入边统计，以输入回车作为表达式输入结束。
Dim Count1%
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = "(" Then
【3】
ElseIf Chr(KeyAscii) = ")" Then
Count1 = Count1 - 1
End If
If KeyAscii = 13 Then
If Count1 = 0 Then
Print "左右括号配对"
ElseIf 【4】 Then
Print "左括号多于右括号"; Count1; "个"
Else
Print "右括号多于左括号"; -Count1; "个"
End If
End If
End Sub
4. 要使下列语句执行20次，循环变量的初值应当是___【5】_____。
For k = ________ To -5 Step -2
5. 下面程序段显示 ___【6】____ 个“*”
For i = 1 to 5
For j=2 to i
Print “*”
Next j
Next I
6. 下面程序第40句共执行了 ____【7】___ 次。第41句共执行了 ___【8】____ 次。
30 For j = 1 to 12 step 3
40 For k = 6 to 2 step -2
41 Print j，k
42 Next k
42 Next j
7. 下面程序的运行后输出结果是___【9】_____。
Private Sub Command_Click()
For i = 0 to 3
Print Tab(5*i+1)；“2”+ i ；“2”& i；
Next i
End Sub
8. 输入任意长度的字符串，要求将字符顺序倒置，例如“ABCDEFG”变换为“GFEDCBA”。
Private Sub Command1_Click()
Dim a$, i%, c$
a = InputBox("输入字符串")
n = Len(A）
For i = 1 To Int(n / 2)
c = Mid(a, i, 1)
_________【10】_______
_________【11】_______
Next i
Print a
End Sub
9. 下面程序运行后输出的结果是___【12】_____。
Private Sub Command_Click()
a$ = ”*” ：b$ = ”$”
For i = 1 to 4
If i Mod 2 = 0 Then
x$ = String(Len(a$) + i , b$)
Else
x$ = String(Len(a$) + i , a$)
End if
Print x$;
End Sub
10.执行下面的程序，输出的结果是___【13】_____。
Option Explicit
Private Sub Form_Click()
Dim I as integer, j as Integer
j = 10
For i = 1 to j step 2
i = i + 1
j = j - i
Next i
Print i ； j
End Sub
11．以下程序循环的执行次数是_【14】___。
a=0
Do While a<=10
a=a+2
Loop
12．窗体上有一个命令按钮和一个文本框，命令按钮事件代码如下：
Private Sub Command1_Click()
X = 1
y = 1
Text1.Text = ""
For I = 1 To 3
F = X + y
X = y
y = F
Text1.Text = Text1.Text + Str(y)
Next I
End Sub
该程序运行后，文本框的内容是_【15】___。
13．执行下面的程序段后，变量S的值为__【16】__。
S = 5
For i = 2.6 To 4.9 Step 0.6
S = S + 1
Next i
14．
下面程序段的输出结果为。
*
**
***
****
*****
******
试将程序段填写完整。
Private Sub Command1_Click()
__【17】__
__【18】__
Print __【19】____;
Next b
Print
Next a
End Sub
15．执行下列程序段后，达到__【20】__的目的。
A=100
B=50
A=A+B
B=A-B
A=A-B 编辑推荐： 2011年计算机二级VB考试冲刺模拟试题及答案 2011年计算机二级VB考试记录文件考前冲刺习题及答案 2011年计算机二级VB考试形参实参考前冲刺习题及答案 参考答案 一、单选题 二、填空题 编辑推荐： 2011年计算机二级VB考试冲刺模拟试题及答案 2011年计算机二级VB考试记录文件考前冲刺习题及答案 2011年计算机二级VB考试形参实参考前冲刺习题及答案
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
B
D
A
D
D
D
C
B
C
B
A
A
C
B
B
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
B
B
B
A
A
C
A
C
B
B
B
C
C
C
B
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
B
C
D
D
B
A
D
A
A
C
A
C
C
A
A
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
A
B
C
D
C
B
A
A
C
B
B
C
A
B
C
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
C
D
A
D
C
A
D
A
B
A
D
D
D
D
A
【1】
7
【2】
分别统计输入若干奇数、偶数的和
【3】
Count1 = Count1 + 1
【4】
Count1 > 0
【5】
33
【6】
10
【7】
4
【8】
12
【9】
2 20 3 21 4 22 5 23
【10】
Mid(a,i,1)=Mid(a,n-i+1, 1)
【11】
Mid(a, n - i + 1, 1) = c
【12】
**$$$****$$$$$
【13】
13 -16
【14】
6
【15】
2 3 5
【16】
9
【17】
For a = 1 To 6
【18】
For b = 1 To a
【19】
"*"
【20】
两个变量A与B的值互换 相关阅读