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

admin2018-12-20  26

问题 现有如下一段程序:
    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://kaotiyun.com/show/85Fp777K
0

最新回复(0)