首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
现有如下一段程序: Private Sub Command1_Click() x=UCase(InputBox(”输入:”)) Select Case x Case”A”Tb”C” Print”考
现有如下一段程序: Private Sub Command1_Click() x=UCase(InputBox(”输入:”)) Select Case x Case”A”Tb”C” Print”考
admin
2020-01-02
98
问题
现有如下一段程序:
Private Sub Command1_Click()
x=UCase(InputBox(”输入:”))
Select Case x
Case”A”Tb”C”
Print”考核通过!”
Case”D”
Print”考核不通过!”
Case Else
Print”输入数据不合法!”
End Select
End Sub
执行程序,在输入框中输入字母“B”,则以下叙述中正确的是
选项
A、程序运行错
B、在窗体上显示“考核通过!”
C、在窗体上显示“考核不通过!”
D、在窗体上显示“输入数据不合法!”
答案
B
解析
多分支控制结构又称为Select Case语句或Case语句,可以同时对条件的多个取值来判断。
转载请注明原文地址:https://kaotiyun.com/show/1LTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画1个名称为Label1的标签数组,含3个标签控件,下标从0开始,标签上的内容(按下标顺序)分别是:“等级考试”,“程序设计”,“VB程
单击命令按钮执行以下程序,则输出结果为()。PnvmeSubCommand1_Click()DimxAsInteger,yAsIntegerx=14:y=48:CallProc(x,y)Pri
以下关于VB对象属性的叙述中,错误的是()。
在窗体上画一个组合框,其名称为Combol,然后编写如下事件过程:PrivateSubForm—Load()Combol.Text=“1”Fori=1To10Sum=Sum+iNextiCombol.Text=SumEndSub
有如下程序:PrivateSubForm—Click()DimiAsInteger,nAsIntegerFori=1T020i=i+4n=n+iIfi>10ThenExitForNextPrintnEndS
下列不属于计时器控件属性的是()。
假定有如下情况语句:SelectCaseX能表示|X|>5的Case子句是()。
程序运行时,要清除组合框Combolqlt,的所有内容,应使用语句()。
在排序过程中,每一次数据元素的移动会产生新的逆序的排序方法是()。
在黑盒测试方法中,设计测试用例的主要根据是()。
随机试题
导游人员在运用道歉语言时,应注意的是()。
根据《医疗机构制剂注册管理办法(试行)》,下列可作为医疗机构制剂申报的是()。
给水厂的总体设计的基本原则是()。
某公募基金管理公司基金经理甲的妻子进行证券投资,甲没有向所在公司事先申报,违反了()的职业道德要求。[2015年9月真题]
4,4,6,9,10,25,14,()
在人际交往中,有一种互补理论:两个人在人生观和价值观方面比较______,而在才能和兴趣方面有所不同,这样既会彼此欣赏,又能______,相处也比较舒服,做起事来也会比较和谐。填入划横线部分最恰当的一项是()。
①随着人类的进化、家族意识的产生,祭祀已非王族所独享,巫的分化也便开始了②相比国家、族群层面的巫,这种巫应属“小巫”了,这类小巫主要包括山、医、命、卜等几类③作为未知世界在俗世的代言人,巫解群体心理之疑、释群体大事之惑,给先民们以行动上的指领和心理上的
全国运动会举行女子5000米比赛,辽宁、山东、河北各派了三名运动员参加。比赛前,四名体育爱好者在一起预测比赛结果。甲说:“辽宁队训练就是有一套,这次的前三名非他们莫属。”乙说:“今年与去年可不同了,金、银、铜牌辽宁队顶多拿一个。”丙说:“据我估计,山东队或
Ihavehadjustaboutenoughofbeingtreatedlikeasecond-classcitizen,simplybecauseIhappentobethatput-uponmemberof
Wearenowlivinginasocietyofseverecompetition.Studentsneedtocompeteforbetterschool;companiescompeteforbetterp
最新回复
(
0
)