首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
现有如下一段程序: Private Sub Command 1_Click() x=UCase(InputBox("输入:")) Select Case x Case"A"To"C" Print"考核通过!" Case"D" Print"考核
现有如下一段程序: Private Sub Command 1_Click() x=UCase(InputBox("输入:")) Select Case x Case"A"To"C" Print"考核通过!" Case"D" Print"考核
admin
2015-05-29
84
问题
现有如下一段程序:
Private Sub Command 1_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
解析
多分支控制结构又称为Select Case语句或Case语句,可以同时对条件的多个取值来判断。其格式为:
Select Case<测试表达式>
[Case<表达式列表1>]
[语句块1]
[Case Else]
[语句块n]
End Select
Case语句以Select Case开头,以End Select结束。
其中,表达式列表1,表达式列表2,…称为域值。
可采用3种形式:
①表达式1[,表达式21…;
②表达式1 To表达式2;
③Is关系运算表达式。
其中,可使用的运算符有等于(=)、不等于(<>)、小于(<)、大于(>)、小于或等于(<=)、大于或等于(>=)。
转载请注明原文地址:https://www.kaotiyun.com/show/aRQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
目前,有两种重要的高级语言,分别是结构化程序和【】。
在关系数据库中,把数据表示成二维表,每一个二维表称为______。
下列说法不正确的是()。
使用ReDimPreserve语句,可以()。
在窗体上添加一个文本框Text1,然后编写如下的Load事件过程,则程序运行结果为()。PrivatesubForm_Load()Text1.Text=""Text1.SetFocusF
窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是()。PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)For
如果准备读文件,打开随机文件“text.dat”的正确语句是()。
获取文本框中被选取的文本内容的属性是()。
下列程序执行的结果为x=25:y=20:z=7Print"S(";x+2*y;")"
下面的程序代码实现将一个一维数组中元素向右循环移动,移动次数由文本框Text1输入。例如数组各元素的值依次为0,1,2,3,4,5,6,7,8,9,10;移动三次后,各元素的值依次为8,9,10,0,1,2,3,4,5,6,7。PrivateSu
随机试题
志贺菌一般不侵犯其他组织,只在肠黏膜上皮细胞内增殖,通过内毒素致病。()
急性脑出血应首选的检查是
试排牙时发现,患者微笑时可见上前牙龈缘,口微闭时上前牙切缘位于唇下2mm,第二前磨牙近中面位于口角。此时应该
金锁固精丸的组成药物不包括
患者,男性,53岁,慢性肾炎多年,近1周感觉尿少,近2天的24小时尿量均不超过400m|入院,查体:血压190/115mmHg,血钾6.3mmol/L,护士为该患者制订的饮食计划中,告诉患者可进食的饮食是
对于本案中对何某适用取保候审,如下说法正确的是()。本案中尤某成为犯罪嫌疑人何某的保证人之后应当履行什么义务?()
企业的长期股权投资采用权益法核算的,长期股权投资的初始投资成本小于投资时应享有被投资单位可辨认净资产公允价值份额的,应按其差额,借记“长期股权投资一成本”科目,贷记“资本公积”科目。()
()在造园艺术中的广泛使用,标志着园林建筑在空间上的突破。
真理是人的意识对客观事物及其规律的正确反映,是主观与客观相一致的过程。真理最本质的特征是
A、Themanshouldstayalittlelonger.B、Themanshouldleaveatonce.C、Themanwillmissthebus.D、Themanmusttrytocatch
最新回复
(
0
)