单选题 窗体上命令按钮command1对应的Click事件过程如下:
Private Sub Command1_Click()
Dim x As Integer
x=InputBox("请输入x的值")
Select Case x
Case 1,2,4,10
Debug. Print "A"
Case 5 To 9
Debug. Print "B"
Case Is=3
Debug. Print "C"
Case Else
Debug. Print "D"
End Select
End Sub
窗体打开运行,单击命令按钮,在弹出的输入框中输入6,则立即窗口中输出的内容是______。
【正确答案】 A
【答案解析】[解析] 在Select…Gase语句中,Case表达式可以是下列4种格式之一。
(1)单一数值或一行并列的数值,用来与“表达式”的值进行比较,并且成员之间以逗号隔开。
(2)由关键字To分割开的两个数值或表达式之间的范围。
(3)关键字Is连接关系运算符,如<>、<、<=、=、>=或>,运算符后面再接变量或精确的值。
(4)关键字Case Else后的表达式,是在前面的Case条件都不满足时执行。
本题中输入“6”,与第二个Case语句匹配,因此程序执行输出字符“B”,故A选项正确。