窗体上命令按钮commandl对应的Click事件过程如下: Private Sub Command1_Click() Dim x As Integer x=InputBox("请输入x的值") Select Case x

admin2021-09-06  40

问题 窗体上命令按钮commandl对应的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、B
B、A
C、C
D、D

答案A

解析 在select…case语句中,case表达式可以是下列4种格式之一。
    (1)单一数值或一行并列的数值,用来与“表达式”的值进行比较,并且成员之间以逗号隔开。
    (2)由关键字To分割开的两个数值或表达式之间的范围。
    (3)关键字Is连接关系运算符,如<>、<、<=、=、>=或>,运算符后面再接变量或精确的值。
    (4)关键字Case Else后的表达式,是在前面的Case条件都不满足时执行。
    本题中输入“6”,与第二个Case语句匹配,因此程序执行输出字符“B”,放A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/0kvp777K
0

最新回复(0)