WORD格式
（20）假定有如下事件过程： Private Sub Form_Click()
Dim x As Integer, n As Integer x = 1 n = 0
Do While x < 28
x = x * 3 n = n + 1 Loop Print x, n End Sub
程序运行后，单击窗体，输出结果是 A
。A．81 4
B．56 3
C． 28 1
D．243 5
（21）有如下程序： Private Sub Form_Click()
Dim Check, Counter Check = True Counter = 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
程序运行后，单击窗体，输出结果为 D
。A ． 15 0
B． 20 -1
C． 10 True D ．10 （22）有如下程序： 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
专业资料整理
False
WORD格式
Print sum End Sub
4
专业资料整理
WORD格式
程序运行后，单击窗体，输出结果为
B． 3A．12 C．24 D． 18
0
（23）在窗体上画一个名称Text的文本框和一个名称
为 为 1
写如下事件过程：
Private Sub Command1_Click()
Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3
For j = 2 To 4
array1(i, j) = i + j Next j Next i
Text1.Text = array1(2, 3) + array1(3, 4) End Sub
A
。
Command1
的命令按钮， 然后编
程序运行后，单击命令按钮，在文本框中显示的值是
B． 1D． 15 A．12 C．14
3
Command1 ，然后编写如下事件过程： （24）在窗体上画一个命令按钮，其名称
为
Private Sub Command1_Click()
Dim a1(4, 4), a2(4, 4) For i = 1 To 4
For j = 1 To
4
A
。
a1(i, j) = i + j
a2(i, j) = a1(i, j) + i + j Next j Next i
Print a1(3, 3); a2(3, 3) End Sub
程序运行后，单击命令按钮，在窗体上输出的是
A ．6 C． 21 D． B． 15 6 7 6 0 （25）有如下程序： Option Base 1
Private Sub Form_Click()
Dim arr, Sum Sum = 0
arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i = 1 To 10
If arr(i) / 3 = arr(i) \\ 3 Then
12
D
。
专业资料整理
WORD格式
Sum = Sum + arr(i) End If Next i Print Sum
专业资料整理
WORD格式
End Sub
程序运行后，单击窗体，输出结果为 C
。
A ． 25
B． 26
C．27
D． 28
（26）在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click()
Dim a(5) As String For i = 1 To 5
a(i) = Chr(Asc(\Next i
For Each b In a
Print b; Next End Sub
程序运行后，单击命令按钮，输出结果是 A
。
A ． ABCDE
B ． 1 2 3 4 5 C． abcde
D．出错信息
（27）以下关于函数过程的叙述中，正确的是
D
。
A ．如果不指明函数过程参数的类型，则该参数没有数据类型 B．函数过程的返回值可以有多个
C．当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递D．函数过程形参的类型与函数返回值的类型没有关系
（28）函数过程 F1 的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为能正确实现上述功能的代码是 B
。
A ． Function F1(b As Integer)
If b Mod 2 = 0 Then
Return 0 Else
Return 1 End If End Function
B． Function F1(b As Integer)
If b Mod 2 = 0 Then
F1=0 Else
F1=1 End If End Function
C． Function F1(b As Integer)
If b Mod 2 = 0 Then
F1=1 Else
专业资料整理
0。以下
全国计算机等级考试二级VB语言笔试试题及答案
