首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Command1的命令按钮,事件过程如下: Pfivate Sub Command1_Click() Dim num As Integer.x As Integer num=Val(InputBox("请输入一个正
窗体上有1个名称为Command1的命令按钮,事件过程如下: Pfivate Sub Command1_Click() Dim num As Integer.x As Integer num=Val(InputBox("请输入一个正
admin
2020-04-18
32
问题
窗体上有1个名称为Command1的命令按钮,事件过程如下:
Pfivate Sub Command1_Click()
Dim num As Integer.x As Integer
num=Val(InputBox("请输入一个正整数"))
Select Case num
Case Is>100
x=x+num
Case Is<90
X=num
Case Else
x=x*num
End Select
Print x;
End Sub
运行程序,并在三次单击命令按钮时,分别输入正整数100、90和60,则窗体上显示的内容为
选项
A、0 0 0
B、0 0 60
C、0 90 0
D、100 0 60
答案
B
解析
多分支控制结构又称为Select Case语句或Case语句,可以同时对条件的多个取值来判断。其格式为:同上题。
本题中第一次输入100执行Case Else分支,由于x是默认初值0所以输出0;第二次输入90也执行Case Else分支,由于x是默认初值0所以输出0;第三次输入60执行第二个分支输出60。
转载请注明原文地址:https://kaotiyun.com/show/n4Tp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
鼠标拖放控件要触发两个事件,这两个事件是
对于能够获得焦点的控件,若要使其不能接收焦点,应该
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivateSubCommandl_Click()DimslAsString,s2AsStringO
设有如下程序:PrivateSubForm_Click0num=InputBox(”请输入一个实数”):P=InStr(num,”.”)Ifp>0ThenPrintMid(num,P+1)Else
设窗体上有名称为Optionl的单选按钮,且程序中有语句:IfOptionl.Value=TrueThen下面语句中与该语句不等价的是
下列描述中,错误的是
下面不属于软件工程过程的4种基本活动
设a=2,b=3,c=4,d=5,下列表达式的值是a>bAndc
InputBox函数返回值的类型为()。
以下关于图片框控件的说法中,错误的是( )。
随机试题
A企业拟发行面值为1000万元,票面利率为6%,到期还本付息的三年期债权,实际发行价格为950万元,则A企业发行债券为__________。
A.轻度隐痛B.阵发性胀痛和剧痛C.持续性剧烈腹痛D.疼痛由重暂时减轻E.长期右下腹疼痛坏疽性性阑尾炎()
下列哪些法律文件属于宪法性文件?
某宗房地产的收益年限为40年,判定其未来每年的净收益基本上固定不变,通过预测得知其未来4年的净收益分别为25万元、26万元、24万元、25万元,报酬率为10%。该宗房地产的收益价格为()。
某写字楼由A公司投资建设,为写字楼产权所有方。建成后租给多家企业办公使用,B公司负责写字楼的物业管理。该写字楼共有8部客用电梯。均在检验合格有效期内,C公司负责电梯的维保工作。2018年某日,其中1部电梯运行中突然下坠,最终电梯停在四层到五层之间,造成3人
某单项工程,按如下进度计划网络图组织施工:原计划工期是170d,在第75d进行进度检查时发现:工作A已全部完成,工作B刚刚开工。由于工作B是关键工作,所以它拖后15d,将导致总工期延长15d。为使本单项工程仍按原工期完成,必须赶工,调
入境船舶在领到卫生检疫机关签发的入境检疫证后,方可降下检疫信号。( )
商业银行在计量违约损失率时,根据《巴塞尔新资本协议》所称的“底线”系数是()。
部分复员退伍军人在新安置的工作岗位上感到社会再适应的压力,存在焦虑、愤怒、抑郁等情绪。针对这种情况,社会工作者首先应为他们提供的服务是()。
Artificialflowersareusedforscientificaswellasfordecorativepurpose.Theyaremadefromavarietyofmaterials,suchas
最新回复
(
0
)