23．运行程序时，显示下图1内容的语句是 23 。
A．b = InputBox(\输入一个整数\程序示例\B．b = InputBox(\程序示例\输入一个整数\C．b = MsgBox(\输入一个整数\程序示例\D．b = MsgBox(\程序示例\输入一个整数\
图1
24．各种运算符间的优先顺序，从高到低是 24 。
A．比较运算符→算术运算符→逻辑运算符 B．比较运算符→逻辑运算符→算术运算符 C．算术运算符→比较运算符→逻辑运算符 D．算术运算符→逻辑运算符→比较运算符
25．将表达式转换为Double类型的函数是 25 。
A．Cbool B．Cbyte C．Cdbl 26．运行下列程序：
Private Sub Form_Click()
Dim sum As Double, i As Integer For i = 1 To 20
If i Mod 5 = 0 Then sum = sum + i End If Next i Print sum End Sub
单击窗体后，则在窗体上显示的结果是 26 。
A．50 B．100 C．4 27．如果在立即窗口中执行以下操作：
x=1
Print x > y
A． -1 B．1 C．False 28．运行下列程序：
Private Sub Form_Click() a = 32: b = 5 Do
a = a / 2 b = b + 1 Loop While b < 10 Print a
D．Cstr
D．5050
D．True
End Sub
单击窗体后，则在窗体上显示的结果是 28 。
A．1 B．2 C．5 29．运行下列程序：
Option Base 1
Private Sub Form_Click() y = 43
x = Array(21, 4, 50, 18, 23, 44, 87, 32, 67, 70) For i = 1 To 10
If x(i) < y Then z = x(i) + 1 y = x(i) Else
z = z + y End If Next i Print z End Sub
单击窗体后，则在窗体上显示的结果是 29 。
A．43 B．21 C．37 30．运行下列程序：
Private Sub form_Click()
t = Val(InputBox(\请输入一个数：\ x = t - 1 Select Case t Case 1 To 10 y = 4 * t Case Is > 10 y = 3 * t Case Else y = 2 * t End Select Print x; y End Sub
运行时，从键盘输入4，输出的结果是 30 。
A．3 16 B．4 4 C．3 4 D．4 10
D．11
D．44
二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）（每空1分，共30分）
1．在创建菜单时，如果命令在完成之前还需要附加信息，则在其名称后面应当有一个 （1） 。
2．VB6.0集成开发环境中，功能键Ctrl+F5的功能是对 （2） 。
3．在VB6.0中定义变量时，通过在变量名后加一个用于规定变量类型的说明字符，来规定变量的类型。当变量名后加―#‖时，则表明该变量为 （3） 。
4．将表达式的结果为非零的值返回True；否则返回False的函数是 （4） 。 5．为了在TextBox控件中显示多行文本，要将 （5） 属性设置为True。 6．运行下列程序，单击窗体后，则在窗体上显示的第四行和最后一行的结果分别是 （6） 和 （7） 。
Private Sub Form_Click() n = 0
a = 1: b = 2: c = 3 For i = 1 To 4 For j = 0 To i
a = b + 1: b = c + 2: c = a + 2 n = n + 1 Print c Next j Next i Print n End Sub
7．在窗体有有一文本框，名为text1，则执行如下事件过程后，文本框中的输出为 （8） 。
Private Sub form_Click() For i = 1 To 3 a = 1
For j = 1 To 3 a = a + 4 Next j Next i
Text1.Text = Str(a) End Sub
8．下列程序运行后，在窗体上打印的结果是 （9） 。
Private Sub test(a, b, c)
a = a + 1: b = b + 2: c = c + 3 End Sub
Private Sub Command1_Click() x = 1: y = 2: z = 3 Call test(x, y + 3, (z)) Print \End Sub
9．下列程序的执行结果是 （10） 。
Private Sub Form_Click() s = 50: n = 2 Do
s = s - n n = n + 1 Loop Until n > 8
Print s End Sub
10．运行下列程序：
Private Sub Form_Click() Do
For I = 1 To 100
m = Int(Rnd * 100) + 1 Select Case m
Case 13: Exit For Case 78: Exit Do End Select n = n + 1 Next I Loop Print m End Sub
单击窗体后，则在窗体上显示的结果是 （11） 。 11．下列程序的功能是计算两个自然数的最大公约数，如图2所示。给定的程序不完整，将程序补充完整。
图2
Private Sub Command1_Click()
Dim x As Long, y As Long, i As Long x = Val(Text1.Text) y = Val(Text2.Text)
Text3.Text = Str( （12） ) End Sub
Function fun1(a As Long, b As Long) As Long Dim r As Long Dim t As Long
If （13） Then t = a a = b b = t End If
r = a Mod b Do While r <> 0
a = b b = r
r = a Mod b Loop
（14） End Function
12．试求出所有满足下述条件的二位数：当它们乘以数字2，3，4，5，6，7，8，9时，其数字之和不变。给定的程序不完整，将程序补充完整。
Private Sub Command1_Click()
Dim m As Integer, sum As Integer
Dim a As Integer, b As Integer, c As Integer For a = 1 To 9
For b = （15） （16） For c = 2 To 9
m = c * (a * 10 + b) sum = 0 Do
sum = sum + m Mod 10 m = m \\ 10 Loop While m > 0
If （17） Then flg = 0: Exit For Next c
If （18） Then Print a; b End If Next b Next a End Sub
13．下列程序的功能是计算圆周率π（计算精度到第n项减1的绝对值小于10-5为止）。请完善下列
程序。
??2?Option Explicit
Private Sub Form_Click()
22?22?222?2?2???
Dim y As Single, t As Single, a As Single y = 2: t = 0 Do
t = Sqr(2 + t) （19）
If Abs(a - 1) < 1E-5 Then （20） y = y * a Loop Print \