现有如下一段程序: Private Sub Command1_Click() x=UCase(InputBox("输入:")) Select Case x Case"A" To "C"

admin2019-04-29  34

问题 现有如下一段程序:
    Private Sub Command1_Click()
        x=UCase(InputBox("输入:"))
        Select Case x
          Case"A" To "C"
            Print"考核通过!"
          Case"D"
            Print"考核不通过!"
          Case Else
            Print"输入数据不合法!"
        End Select
    End Sub
执行程序,在输入框中输入字母“B”,则以下叙述中正确的是(    )。

选项 A、程序运行错
B、在窗体上显示“考核通过!”
C、在窗体上显示“考核不通过!”
D、在窗体上显示“输入数据不合法!”

答案B

解析 程序中UCase函数将输入的字母转换为大写,然后通过Select多分支控制语句选择输出不同信息,当输入字母在“A”到“C”之间时,显示“考核通过!”,输入的是“D”时显示“考核不通过!”,如果输入的是“A”到“D”之外的其他字符则显示“输入数据不合法!”。程序中输入字母“B”,因此会显示“考核通过!”。
转载请注明原文地址:https://jikaoti.com/ti/lmN0FFFM
0

最新回复(0)