第四章测试1.
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer
Dim num As Integer
Dim n As Integer
n = 0
Randomize
For i = 1 To 10
num = Int(Rnd * 10) + 1
Select Case num Mod 2
Case 1
Exit For
Case 0
Print num
n = n + 1
End Select
Next i
Print "n="; n
End Sub
下面有关描述中正确的是________。
A:程序运行过程中，变量num共被赋值10次 B:num的值是1~11之间的整数 C:当num的值为偶数时，则For循环将被终止 D:变量n的作用是累计自过程运行开始到结束所产生的偶数个数
答案:D
2.
在窗体上画一个名称为Command1的命令按钮，并编写如下程序代码：
Private Const NUM As Integer = 10
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 1
b = NUM
Do Until b > NUM
a = a * NUM
b = b + 1
Loop
Print a
End Sub
则当程序运行时，单击Command1后，在窗体上的输出结果是________。
A:1
B:10 C:100 D:21 3.
已知文本框Text1中输入了一篇英文短文，并编写了如下程序段：
Str_x = Text1.Text
n = Len(Str_x)
m = 0
t = 0
For i = 1 To n
w = UCase(Mid(Str_x, i, 1))
If w >= "A" And w <= "Z" Then
If t = 0 Then m = m + 1
t = t + 1
Else
t = 0
End If
Next
Print m
该程序段的功能为统计并输出英文短文中________。
A:大写字母的个数 B:首字母大写的单词的个数 C:单词的个数 D:字母的个数 4.
设窗体上有文本框Text1和命令按钮Command1，并编写了下面的过程：
Private Sub Command1_Click()
ch$ = ""
x% = Val(Text1.Text)
k = 2
For k = 2 To x / 2
If x Mod k = 0 Then
ch = ch & " " & k
End If
Next k
Print ch
End Sub
程序运行后，在文本框中输入28，单击命令按钮，则输出是________。
A:1 3 5 7 9 11 13 B:14 7 4 2 C:2 4 6 8 10 12 14 D:2 4 7 14 5.
设有如下程序段：
Dim x As Integer
x = Val(InputBox("输入变量x的值"))
Select Case x
Case ________________
Print "*"
Case Else
Print "#"
End Select
以上程序段的功能是，当变量x的值在5到10之间，或者大于20时，输出"*"，其它情况输出"#"，则程序中横线处应填入的内容是________。
A:5 To 10: x>20 B:x>= 5 And x <= 10="" or="" x=""> 20 C:5 To 10, Is>20 D:5-10 Or x>20 6.
设a、b、c为整型变量，其值分别为4、5、6。以下程序段的输出结果是________。
a = b: b = c: c = a
Print a; b; c
A:5 6 4 B:5 6 5 C:4 5 6 D:6 5 4 7.
以下Case子句中错误的是________。
A:Case Is > 10 B:Case 0 To 10 C:Case 3, 5, Is > 10 D:Case Is > 10 And Is < 50 8.
有如下程序代码：
Private Sub Form_Click()
X = 8
If X > 8 Then
Print "X > 8"
ElseIf X < 10 Then
Print "X < 10"
ElseIf X = 8 Then
Print "X = 8"
End If
End Sub
运行程序，单击窗体，输出结果是________。
A:X = 8 B:X < 10 C:X < 10 X = 8 D:不确定 9.
在窗体上画一个名称为Label1的标签，然后编写如下事件过程：
Private Sub Form_Click()
Dim S As Integer
S = 0
For i = 1 To 15
x = 2 * i - 1
If x Mod 3 = 0 Then
S = S + 1
End If
Next i
Label1.Caption = S
End Sub
运行程序，单击窗体，标签中显示的是________。
A:5 B:45 C:1
D:27 10.
执行下面的程序段后，x的值为________。
x=5
For i=1 to 20 Step 2
x=x+i5
Next i
A:23 B:24 C:22 D:21
11.
在窗体中画一个命令按扭，然后编写以下事件过程：
Private Sub Command1_Click( )
For i=1 to 4
x=4
For j=1 to 3
x=3
For k=1 to 2
k=k+6
Next k
Next j
Next i
Print x
End Sub
程序执行结果为________。
A:15 B:158 C:3 D:157
12.
对语句 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 是关系表达式 13.
设有如下程序：
Private Sub Command1_Click ( )
Dim sum As Double ,x As Double
sum=0
For i=1 To 5
x=n/i
n=n+1
sum =sum +x
Next
End Sub
该程序通过For 循环计算一个表达式的值，这个表达式是________。
A:1/2 +2/3+3/4+4/5 B:1+1/2 +2/3+3/4 C:1+1/2 +2/3+3/4+4/5 D:1+1/2 +1/3+1/4+1/5 14.
在窗体上画一个名称为Command1的命令按扭和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程:
Private Sub Command1_Click( )
n %= Text1.Text
Select Case n
Case 1 to 20
x=10
Case 2,4,6
x=20
Case Is<10
x=30
Case 10
x=40
End Select
Text2.Text=x
End Sub
程序运行后，如果在文本框Text1中输入10，然后单击命令按扭，则在Text2中显示的内容是________。
A:10 B:30 C:20 D:40 15.
以下叙述中，错误的是________。
A:有语句：x = InputBox("输入：", "输入整数")，则该语句打开的对话框的标题是"输入整数" B:MsgBox函数的返回值为一整数 C:InputBox函数的返回值类型由用户在输入对话框中输入数据的类型决定 D:可以用MsgBox函数输出一条信息
16.
在Do While...Loop循环结构中Loop语句的作用是________。
A:终止循环，将控制转移到本循环结构Loop后面的第一条语句继续执行
B:该语句在Do While...Loop循环结构中不起任何作用 C:转移到Do While语句行，开始下一次判断和循环 D:退出循环，返回到程序开始处 17.
设 a=6，则执行x= IIf ( a<6 ,-1 ,0 ) 后，x的值是________。
A:6
B:0
C:-1
D:5
