一、选择题
1．当文本框的（ ）属性为 True 时，Scroll 属性才有效。
A．Value B．MultiLine C．Index D．Tabindex 2．当某一按钮的（ ）属性设置为 False 时，该按钮不可见。
A．Enable B．Default C．Visible D．Cancel 3．通常，文本框的 SetFocus 方法不能使用在（ ）事件中。
A．Form_Click B．Form_Load C．Command_Click D．Label_click 4．下列语句可以将变量 X、Y 的值互换的是（ ）。
A．X=Y:Y=X B．T=X:Y=X:X=T C．T=Y:Y=X:X=T D．X=T:T=X:Y=T 5.下列程序段求两个数中的最大数 max，不正确的是（ ）。
A．max=IIf(x>y,x,y) B．If x>y Then max=x Else max=y C．max=x D．If y>=x Then max=y
If y>=x Then max=y max=x 6．当 x=5 时，下列语句执行后 y 的值是（ ）。
y=IIf(x>0,x ^ 2+1,x-1)
A．-6 B．26 C．0 D．4
7.“x 是小于 50 的非负数” ，用 VB 表达式表示正确的是（ ）。 A．0<=x<50 B．0<=x And x<50 C．0<=x<50 D．0<=x Or x<50 8．以下叙述正确的是（ ） 。
A．Do…While 语句构成的循环不能用其他循环语句代替 B．Do…While 语句构成的循环可以用 Break 语句退出
C．用 Do…While 语句构成的循环，在 While 后的条件不成立时结束循环 D．用 Do…Loop Until 语句构成的循环，在 Until 后的条件不成立时结束循环 9．关于语句 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 为关系表达式 10．循环嵌套应遵循的原则是（ ） 。
A．内、外循环控制变量不能重名 B．内、外循环不能交叉
C．不能从循环体外跳到循环体内 D．以上都对
11．假定有以下循环结构： End Sub
上述事件过程执行后，下列描述中正确的是（ ）。 A．Do 循环执行的次数为 1000 次
B．在 For 循环中产生的随机数小于或等于 100 C．当所产生的随机数为 12 时结束所有循环
D．当所产生的随机数为 65、68 或 92 时窗体关闭、程序结束
13．在窗体上画一个名为 Text1 的文本框和一个名为 Command1 的命令按钮，然后编写如 下事件过程： End Sub
程序运行后，单击命令按钮，在文本框中显示的值是（ ）。
A．3 B．4 C．5 D．2
二、填空题
1．结构化程序设计的三种基本结构是__________、__________、__________。
2．VB 的赋值语句既可以给__________赋值，也可以给对象的__________赋值。
3．在 VB 中，用于产生一个消息框的语句或函数是__________，用于输入框的函数为 __________。
4．循环语句 Do…Loop Until<条件>，当循环条件__________时退出循环。
5．在 For…Next 循环语句中，用__________语句中途退出循环。
6．下列程序段运行后显示的结果是__________。
Dim x
x = Int(Rnd) + 5 Select Case x
Case 5
Print "优秀"
Case 4
Print "良好"
Case 3
Print "通过"
Case Else
Print "不通过"
End Select
7．要使下列 For 语句循环执行 20 次，请填写循环变量的初值。
For k=__________To 5 Step 2
8．设有以下的循环，要求程序运行时执行 3 次循环体，请填空。
x=1 DO
x=x+2 Print x
Loop Until__________
三、程序填空题
1．下列程序的功能是计算 f=11/(2*3)+1/(3*4)1/(4*5)+…+1/(19*20)。
Private Sub Form_Click()
【1】
f = 1
【2】
f = f + sign/(i * (i + 1))
【3】
Next i
Print "f="; f End Sub
2．输出 100 以内的所有 9 的倍数，并计算这些数的和。
Private Sub Form_Click() Dim i As Integer, s As Integer
s = 【1】
For i = 1 To 100
If 【2】 Then s = 【3】
Print i End If Next i Print s End Sub
If mark < Min Then
【2】
ElseIf mark > Max Then
【3】
End Sub 四、程序阅读题
x = x + 1
5．在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Label1，有如下的 事件过程： End Sub
程序运行后，单击命令按钮，标签中显示的内容是什么？