窗体上有一个命令按钮“command1”,Click事件过程如下: Private Sub Command1_Click() Dim x As Integer x=InputBox(’’请输入x的值’’) Select Ca

admin2021-04-27  77

问题 窗体上有一个命令按钮“command1”,Click事件过程如下:
    Private Sub Command1_Click()
    Dim x As Integer
    x=InputBox(’’请输入x的值’’)
    Select Case x
    Case 1,2,4,6
    Debug.Print’’A’’
    Case 5.7 TAo 9
    Debug.Print’’B’’
    Case Is:10
    Debug.Print’’C’’
    Case Else
    Debug.Print’’D’’
    End Select
    End Sub
    窗体打开运行,单击命令按钮,在弹出的输入框中输入8,则立即窗口上显示的内容是(    )。

选项 A、A
B、B
C、C
D、D

答案B

解析 select case条件有3种形式,分别为①Case表达式;②Case表达式To表达式;③Case is关系运算表达式。本题中在文本框中输入8,属于第一种形式,该形式中只要表达式的值与Case子句中列出的某一个值相同,条件就成立,系统就会执行该Case后面的语句块。由题目可知输入的数据“8”满足第二个case语句,故执行“Case 5,7 To 9“后面的内容,即在窗口上显示“B”。故选择B选项。
转载请注明原文地址:https://kaotiyun.com/show/o8Sp777K
0

相关试题推荐
最新回复(0)