28．设a=9，则执行x=IIf(a>5,-1,0)后,x的值为（ ）。 （A） 5 （B） 6 （C） 0 （D）-1
29．下列程序段的执行结果为（ ）。 x = Int(Rnd() + 4) Select Case x Case 5
Print \优秀\ Case 4
Print \良好\ Case 3
Print \通过\ Case 2
Print \不通过\End Select
（A） 优秀 （B） 良好 （C） 通过 （D）不通过
30．下面语句运行后的输出结果是（ ）。 Private Sub Command1_Click() x = 0
While x < 10
x = x + 1: x = x * x Wend Print x End Sub
（A） 16 （B） 19 （ C） 20 （D） 25
二 程序填空题
1. 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click()
a = InputBox(\请输入一个整数\ b = InputBox(\请输入一个整数\ Print Val(a + b); Print Val(a) + Val(b) End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 ○1 、 ○2 。
2. 下列程序执行的结果分别是 ○3 、 ○4 Private Sub Command1_Click() m% = 10: m = 15 Print m Print m%
End Sub
3.下列程序执行后，在窗体上输出的三行数据分别是 ○5 、 ○6 、 ○7 。 Private Sub Form_click() A = 0: b = 1
A = a + b: b = a + b: Print a; b A = a + b: b = a + b: Print a; b A = a + b: b = a + b: Print a; b End Sub
4.在窗体中添加两个文本框和一个命令按钮，然后编写如下两个事件过程： Private Sub Command1_Click()
a = UCase$(Text1.Text) + Left$(Text2.Text, 2) Print a End Sub
Private Sub Form_Load() Text1.Text = \ Text2.Text = \End Sub
程序运行后，单击命令按钮，输出结果为 ○8 。
5. 下列过程执行时，有键盘输入3，则运行结果分别是 ○9 、 ○10 Private Sub Command1_Click() x = Val(InputBox(\输入x\ If x ^ 2 < 9 Then y = 1 / x If x ^ 2 = 9 Then y = x
If x ^ 2 >= 9 Then y = x ^ 2 + 1 Print \ Print \End Sub
6 运行下列程序段，窗体上显示的数据分别为 ○11 、 1○2 Private Sub Form_Click() x = 5 y = -20
If Not x > 0 Then x = y - 3 Else y = x + 3 Print x - y; Print y - x End Sub
7.下列程序运行后，程序中的循环体共执行了 ○13 次，窗体上显示的内容是 ○14 。 Private Sub Form_Click () Dim num As Integer num = 1
Do Until num > 6 Print num;
num = num + 2.4 Loop End Sub
8. 在窗体上画两个文本框和一个命令按钮,然后编写如下事件过程: Private Sub Command1_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
程序运行后,单击命令按钮,在两个文本框中显示的值分别是 ○15 与 1○6 。
9．在下面程序运行时分别键入3 、5，则该程序的运行结果分别是 ○17 、 ○18 。 Private Sub Form_Click()
x = InputBox(\请输入一个整数（>=3）\ Select Case x Case Is < -3
Print (x + 1) / (x + 3) Case -3 To 3
Print x * x + 1 Case Is > 3
Print (x + 1) / (x - 3) End Select End Sub
10．下面程序运行后输出的结果为 1○9 ，程序中的循环体执行了 2○0 次。 Private Sub Command1_Click() While j < 10
j = (j + 1) * (j + 1) n = n + 1 Wend Print j End Sub
11．在窗体中添加一个命令按钮,并编写如下代码: Private Sub Command1_Click() c = 1
Do Until c > 0
c = c + 1 Loop Print c End Sub
运行后点击命令按钮,输出结果是 2○1 ，程序中循环体执行了 ○22 次 。
12．在窗体上画一个名称为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，则在窗体上显示的内容是 ○23 。如果输入6，则窗体上显示的是 ○24 。
13.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x = 0
Do Until x = -1
a = Val(InputBox(\请输入 A的值\ b = Val(InputBox(\请输入B的值\ x = Val(InputBox(\请输入x的值\ a = a + b + x Loop Print a End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果 2○5 。
14、下面的程序用于根据文本框Text中输入的内容进行以下处理： 若Text为2,4,6,则打印“Text的值为2，4，6”；若Text为1,3,5,则打印“Text的值为1，3，5”；若Text为8,9,则打印“Text的值为8，9”；否则打印“Text的值不在范围内”。 Private Sub Form_Click()
Select Case Val(Text.Text) Case 2○6
Print \的值为2，4，6\ Case 2○7
Print \的值为1，3，5\ Case 2○8
Print \的值为8，9\ Case Else
Print \的值不在范围内\ End Select End Sub
15.在下列程序段运行时输入1.23，则输出的结果是 2○9 ，len( N)是 ○30 Private Sub Form_Click()
n = Str(InputBox(\请输入一个实数：\ p = InStr(n, \ Print Mid(n, p) End Sub
16 .以下程序的功能是计算S=1!+2!+3!+?+n!，请补充完善程序。 Private Sub Command1_Click()
n = Val(InputBox(\请输入一个数\ s = 0
For i = 1 To n p = 1
For j = 1 To i ○31 Next j ○32 Next i Print s End Sub 17.
Private Sub Form_Click() x = 5
e = Sgn(x) + 1 If e = 1 3○3 y = x * x + 1 ElseIf e = 2 Then y = 5 * x + 5 Else
y = 0
End If Print y End Sub
运行时输出的结果是 3○4 。
18.下列程序的执行结果为 ○35 。 Private Sub Form_click()