首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
现有如下一段程序: x=UCase(InputBox("输入:")) Select Case x Case "A" To "C" Print "考核通过!" Case "D" Print "考核不通过 !
现有如下一段程序: x=UCase(InputBox("输入:")) Select Case x Case "A" To "C" Print "考核通过!" Case "D" Print "考核不通过 !
admin
2020-07-22
29
问题
现有如下一段程序:
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/5rHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在VB中,函数过程与子程序过程的区别之一是
用语句Open"C:\teac.txt"ForInputAs#1打开文件后,就可以编程序
能够将组合框Combo1中最后一个数据项删除的语句为( )。
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中:PrivateSubCommand1_Click() Open"out.txt"ForOutputAs#2 Print"Text1" Close
设在窗体上有一个名称为Check1的复选框数组,并有以下事件过程:PrivateSubCheck1_Click(IndexAsInteger) …EndSub则下面叙述中错误的是( )。
在窗体上画一个文本框,名称为Textl(可显示多行),然后再画三个命令按钮,名称分别为Commandl、Command2和Command3,标题分别为”读数”、”统计”和”存盘”,如图2.5所示。程序的其功能是:单击”读数”按钮,则把考生目录下的in5.t
(1)在考生文件夹下有一个工程文件sit3.vbp,其功能是:①单击“读数据”按钮,则把考生文件夹下in3.dat文件中的0~999之间的100个整数读入数组a中:②单击“计算”按钮,则找出这100个整数巾所有水仙花数,并将它们的最大值与最小值分别显示
以下关于图片框、图像框的叙述中,正确的是
下列可作为VisualBasic变量名的是()。
算法的空间复杂度是指()。
随机试题
对外界因素抵抗力最强的细菌结构是
下列设备中,属于内业设备的是()。
本题中所给资料中,涉及错误之处的有( )。交际应酬费( )。
利率互换是两个交易对手就()进行相互变换。
国有独资企业、国有独资公司、国有资本控股公司的董事、监事、高级管理人员违反法律规定,造成国有资产特别重大损失,被免职的,自免职之日起5年内不得担任上述三类公司的董事、监事、高级管理人员。()
有如下程序:include<iostream>usingnamespacestd;classPair{intm,n;public;Pair(intj,intk):m(j),n(k){}intget(){return
AirPollutionAirpollutionistypicallycausedby【1】_____ranbythefactoriesofmodernindustrialna-
研究表明,与传统现念相反,熬夜工作的人可能智商更高。(contraryto)
A、Askuserstosignupforthescheme.B、Havemoredockingstationsinplace.C、Lowerthepriceitcoststohirethebicycles.D
A、Itisaninexpensiveandefficientenergy.B、Itwon’tposeanyproblemtoenvironment.C、Itrepresentsthelatesttechnology.
最新回复
(
0
)