练习题四
1、选择题：
（1）下列程序运行后，变量a的值为_____。
Private Sub Command1_Click()
A% = 14 b% = 12 A% = b% - A% b% = b% + A% A% = -b% ^ 2 Print A End Sub A．100 C．a$x
B．-100 D．CdE
（2）在窗体Form1上画两个文本框Text1、Text2和一个命令按钮Command1，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim a As Single
a = Text1.Text+Text2.Text Print a End Sub
程序运行后，在Text1和Text2中分别输入123和321，然后单击Command1命令按钮，则输出结果为_____。
A．444 C．123321
B．321123 D．123231
（3）在窗体上有一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文
本框的Text属性置空，然后编写如下事件过程：
Private Sub Command1_Click()
a = InputBox(\b = InputBox(\Text1.Text = b + a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是_____。
第6章 过 程
A．108 B．18 C．810 D．出错 （4）下列程序段的功能是_____。
x = 10.5
y = Int(x+0.5) Print y A．求平均值 B．将一实数四舍五入取整 C．求绝对值
D．舍去一实数的小数部分
5）编写如下程序：
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
b = 6 : c = 6.5 a = b = c Print a End Sub
程序运行后，单击窗体，则在窗体上显示的是_____。 A．1 B．2 C．-1
D．0
（6）关于语句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均为赋值语句
（7）在Select Case x结构中，描述判断条件3 ≦ x ≦7的测试项应该写成_____。A．Case 3 ≦ X ≦ 7 B．Case 3 ≦ X , X ≦ 7 C．Case Is ≦ 7 , Is ≧ 3 D．Case 3 To 7 （8）下列程序段执行的结果是_____。 Dim x
If x Then Print x Else Print x + 1
A．1 B．0 C．-1
D．不确定
（9）下列程序段执行的结果是_____。
x = 8 y = -6
If Not x > 0 Then x = y - 3 Else y = x + 3 Print x - y; y - x A．-3 3
B．8 -9
- 2 -
（
第6章 过 程
C．-6 8
D．3 -3
（10）计算Max的值，当x大于y时，Max = x；否则Max = y。下列语句错误的是_____。
A．If x >= y Then Max = x: Max = y
B．If x >= y Then Max = x Else Max = y C．Max = y: If x >= y Then Max = x D．If x <= y Then Max = y Else Max = x
（11）关于下面For-Next循环描述正确的是_____。
For i=0 to 10 Step 0
Print \Next i
A．循环无结束条件 C．循环体执行11次
B．循环是一个无限循环 D．循环体执行1次
（12）关于Exit For语句的使用说明正确的是_____。
A．Exit For语句可以退出任何类型的循环
B．一个循环只能有一个这样的语句 C．Exit For表示返回For语句去执行 D．一个For循环中可以有多条Exit For语句
（13）在过程中有语句For I = N1 To N2 Step N3，在该循环体内有下列四条语句，其中_____会影响循环执行的次数。
① N1 = N1 + I ② N2 = N2 + N3 ③ I = I + N3 ④ N3 = 2 * N3 A．①② B．①②③
C．③
D．①②③④
（14）执行下面的三重循环程序段后，a 的值为_____。 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．3 C．14
B．9 D．21
（15）执行下面过程中的循环程序段后，I的值为_____。
Private Sub Form_Click()
Dim I As Integer, Sum As Integer
- 3 -
第6章 过 程
For I = 0.5 To 8.5 Step 2.5
Sum = Sum + I Next I
Print Sum, I End Sub A．10.5 B．11 C．10
D．20
2、填空题：
（1）显示如图4-33所示的输入框的语句是_____。
图 4-33
（2）显示如图4-34所示的消息框的语句是_____。
图 4-34
（3）显示如图4-35所示的图形，完成下面程序中的语句：Private Sub Form_Click()
Print Tab(_____); \
Print Tab(_____); \Print Tab(8); \Print Tab(_____); \Print Tab(_____); \End Sub
- 4 -
第6章 过 程
图 4-35
（4）任意输入三个数，将其按从小到大的顺序输出，完成下面程序中的语句。
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
Dim temp As Integer
a = Val(InputBox(\输入第一个数\_____ _____
Print \初始值：\If a > b Then
_____ End If
If _____ Then
temp = a: a = c: c = temp End If
If _____Then
temp = b: b = c: c = temp End If
Print \排序后：\End Sub
（5）以下程序用来产生20个0~99之间的随机整数，并将其中的偶数打印出来。Private Sub Form_Click()
Dim i As Integer, x As Integer
For i = 1 To 20
x = _____
If _____Then Print x
Next i End Sub
3、阅读题：
- 5 -