新编Visual Basic程序设计（习题）--04 习题.doc

一、选择题
,则在执行以下语句后,其输出结果为“Result”的Select Case语句是(C)
A) Select Case x
Case 10 to 1
Print”Result”
End Select
B) Select Case x
Case Is>5,Is<5
Print”Result”
End Select
C) Select Case x
Case Is>5,1,3 to 10
Print”Result”
End Select
D) Select Case x
Case 1,3,Is>5
Print”Result”
End Select
=6,则执行x=IIf(a>5,-1,0)后,x的值为(D)
A)5 B)6 C)0 D)-1
(B)
A) If a = 3 And b = 2 Then
c = 3
End If
B) If a = 3 Then c = 3
ElseIf a = 2 Then c = 2
C) If a = 3 Then
c = 2
ElseIf a = 2 Then
c = 3
End If
D) If a = 3 Then c = 3
,并编写如下程序:
Private mand1_Click()
Dim x As Integer
x = Val(InputBox("enter"))
If x Mod 3 = 0 Then y = x Mod 3
If x Mod 3 = 1 Then y = x Mod 3
If x Mod 3 = 2 Then y = x Mod 3
Print y
End Sub
如果输入23,程序的运行结果是(C)。
A)0 B)1 C)2 D)出错
(A)
If x = 1 Then y = 4
If x = 2 Then y = 5
If x = 3 Then y = 6
A) If x = 1 Then
y = 4
ElseIf x = 2 Then
y = 5
Else: y = 6
End If
B) If x = 1 Then
y = 4
ElseIf x = 2 Then
y = 5
Else y = 6
End If
C) If x = 1 Then
y = 4
ElseIf x = 2 Then y = 5
End If
D) If x = 1 Then
y = 4
ElseIf x = 2 Then
y = 6
End If
,并编写如下代码:
Private mand1_Click()
Dim a As Integer
a =
If a Mod 2 = 0 Then
MsgBox " 输入的数是偶数!"
Else
MsgBox " 输入的数是奇数!"
End If
End Sub
单击命令按钮后,在文本框中输入23后运行结果是(A)。
A)弹出消息框“输入的数是奇数!”
B)弹出消息框“输入的数是偶数!”
C)弹出错误消息!
D)无消息!