首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
2019-04-29
28
问题
窗体上有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/sQUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
下列控件属性中,属性值的类型不相同的一项是()。
可设置文字字体为斜体的属性是()。
在窗体上画一个名为Check1的复选框,如果在窗体启动事件中编写语句“Checkl.Enabled=False”,则运行后复选框的状态为()。
当窗体大小改变时,要使其中的控件也按比例发生变化,应使用窗体的()。
待排序的关键码序列为(15,20,9,30,67,65,45,90),要按关键码值递增的顺序排序,采取简单选择排序法,第一趟排序后关键码15被放到第()个位置。
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm,在窗体上有一个命令按钮(名称为Command1,标题为“计算并输出”)和两个文本框(名称分别为Text1和Text2),如图3-8所示。程序运行后,单击命令按钮,即可计算出数组
在考生文件夹下有一个工程文件sjt3.vbp,其功能是:1)单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个按升序排列的整数读入到数组a中,同时显示在Text1文本框中;2)单击“查找”按钮,则提示用户输入查找的数,并
软件设计中模块划分应遵循的准则是
假定通过复制、粘贴操作建立了一个命令按钮数组Command1,以下说法中错误的是()。
随机试题
患者男性,67岁,上下颌牙列缺失,行全口义齿修复,义齿戴用两周后复诊,自述义齿容易松动脱落下列口腔情况不利于全口义齿固位的因素是A.牙弓宽大B.牙槽嵴丰满C.腭盖高耸D.黏膜薄,弹性低E.唾液黏稠
患者男,49岁。反复腹痛,进行性黄疸1个月余,CT图像如下,最有可能的诊断是
女性,31岁。诊断为二尖瓣脱垂。心尖部除闻及收缩期杂音外,尚可闻及
患者,女,28岁。妊娠3个月。左下后牙疼痛3天现来就诊。检查见:口腔卫生较差,牙龈边缘红肿明显,上颌6|和下颌6|深龋洞,牙髓活力正常,下颌7|深龋洞,髓腔开放,牙髓无活力,叩痛(++),余未见异常。对该患者的正确处理原则是
合作学习的教学策略意在使学生认识到同伴问互助互利,及小组成员间资源共享,同伴间互相支持和鼓励的重要性。在“用样方法调查草地中某双子叶植物的种群密度”的实验中,教师在组织学生的探究活动中的安排不合理的是()。
按照所要测量的特征大体上可把心理测验分成__________和__________。
进入21世纪后,质疑达尔文进化论的声音此起彼伏。达尔文进化论的核心是自然选择,以及与自然选择相关的生存竞争和渐变,所以达尔文一再宣称“自然界没有飞跃”。达尔文认为生物个体在长时间的演化中,经过自然选择,其微小的变异积累为显著的变异,于是形成新的物种或新的
若有以下程序段:doublex=5.16894;printf("%f\n",(int)(x*1000+0.5)/(double)1000);则程序段的输出结果是()。
WhatarethechallengesfacingmultinationalsthatwanttobuildtheirbrandsinChina?—Ithinkthefirstthingisignorance.T
Sowhathavetheytaughtyouatcollegeaboutinterviews?Somecoursesgototownonit,othersdoverylittle.Youmaygetconf
最新回复
(
0
)