现有如下一段程序：Private Sub Command1_Click() x＝UCase(InputBox("输入：")) Select Case x Case "A" To "C" Print "考核通过！" Case "D" Print "考核不通过 ！" Case Else Print "输入数据不合法！" End SelectEnd Sub执行程序，在输入框中输入字母“B”，则以下叙述中正确的是( )。
- A.程序运行错
- B.在窗体上显示“考核通过！”
- C.在窗体上显示“考核不通过 ！”
- D.在窗体上显示“输入数据不合法！”
热度🔥891
参考答案：B
解析：
【解析】程序中Ucase函数将输入的字母转换为大写，然后通过Select多分支控制语句选择输出不同信息，当输入字母在"A"到"C"之间时，显示"考核通过！"，输入的是"D"时显示"考核不通过！"，如果输入的是"A"到"D"之外的其他字符则显示"输入数据不合法！"。程序中输入字母"B"，因此会显示"考核通过！"。
【解析】程序中Ucase函数将输入的字母转换为大写，然后通过Select多分支控制语句选择输出不同信息，当输入字母在"A"到"C"之间时，显示"考核通过！"，输入的是"D"时显示"考核不通过！"，如果输入的是"A"到"D"之外的其他字符则显示"输入数据不合法！"。程序中输入字母"B"，因此会显示"考核通过！"。
复制题目向AI提问
扫码免费计算机二级刷题
2025年计算机等级考试题库
推荐
若有以下定义
int x[10], *pt=x;
则对x数组元素的正确引用是
在设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框：Private Sub Command1_Click() CD1.DialogTitle＝"打开文件" CD1.InitDir＝"C：" CD1.Filter＝"所有文件|*.*|Word文档|*.doc|文本文件|*.txt" CD1.FileName＝"" CD1.Action＝1 If CD1.FileName＝""Then Print"未打开文件" Else Print"要打开文件"& CD1.FileName End IfEnd Sub 但实际显示的对话框中列出了C：\下的所有文件和文件夹，"文件类型"一栏中显示的是"所有文件"。下面的修改方案中正确的是( )。
关闭表单的程序代码是ThisForm.Release，Release是( )。
