首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Commandl的命令按钮,事件过程如下: Private Sub Command l_Click() Dim hum As Integer,x As Integer num:Val(InputBox(“请输入一个正整数”)) Selec
窗体上有1个名称为Commandl的命令按钮,事件过程如下: Private Sub Command l_Click() Dim hum As Integer,x As Integer num:Val(InputBox(“请输入一个正整数”)) Selec
admin
2015-11-24
33
问题
窗体上有1个名称为Commandl的命令按钮,事件过程如下:
Private Sub Command l_Click()
Dim hum As Integer,x As Integer
num:Val(InputBox(“请输入一个正整数”))
Select Case hum
Case Is>100
x=x+hum
Case Is<90
X=num
Case Else
x=x* num
End Select
Print x:
End Sub
运行程序,并在三次单击命令按钮时,分别输入正整数100、90和6
选项
A、0 0 0
B、0 0 60
C、0 90 0
D、100 0 60
答案
B
解析
多分支控制结构又称为Select Case语句或Case语句,可以同时对条件的多个取值来判断。其格式为:同14题。本题中第一次输入100执行Case Else分支,由于x是默认初值0所以输出0;第二次输入90也执行CaseElse分支,由于x是默认初值0所以输出0:第三次输入60执行第二个分支输出60。
转载请注明原文地址:https://kaotiyun.com/show/UxLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要使文本框获得输入焦点,则应采用文本框控件的
下列程序中,a,b,c代表一个三角形的三条边,程序的作用是判断一个三角形是否成立,请填写空白处。Ifa+b<c______b+c<a______a+c<bThenMsgBox("这三条边不能构成一个三角形")EndIf
假定在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType要求在执行事件过程Command1_Click时,在顺序文件Person.txt中
对于图书管理数据库,将图书表中“人民邮电出版社”的图书的单价涨价5%。请对下面的SQL语句填空:UPDATE图书______WHERE出版单位=“人民邮电出版社”
设有下列过程:Subff(x,y,z)x=y+zEndSub下列选项中所有参数的虚实结合都是传址方式调用的是()。
滚动条的最小值属性是______,最大值属性是Max。
下列叙述中正确的是()。
假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项不可见,应使用的语句为()。
下面表达式中,()的运算结果与其他三个不同。
若A=20,B=80,C=70,D=30,则表达式A+B>160Or(B*C>200AndNotD>60)的值是______。
随机试题
某患者认为医生诊断有误,迟迟不愿接受治疗,属于患者角色()
患者,女,8岁,近2年经常上腹隐痛,腹胀,晨起恶心,有时呕吐,食纳少,其父近期纤维胃镜检查诊为浅表胃炎、Hp(+),该患儿应选择以下哪项检查
X线管阴极的作用是
大连某航运公司所属的客轮“翱翔”号在大连驶往天津港途中,在青岛海域被海南某航运公司“飓风”号碰撞。“翱翔”号被迫驶往青岛港靠岸。“飓风”号没有停留,继续行驶至厦门港被扣留。如果由于碰撞,“翱翔”号上的乘客因此依运输合同请求大连某海运公司赔偿,就该案
根据世行的规定,在正式接受合同后,业主与承包商可就()进行谈判,加以确定。
在某大型工程项目的实施过程中,由于“下情不能上传,上情不能下达”,导致项目经理不能及时做出正确决策,拖延了工期。为了加快实施进度,项目经理修正信息传递工作流程。这种纠偏措施属于动态控制的()。
对下列行政复议事项,按照自愿、合法的原则,申请人和被申请人在行政复议机关作出行政复议决定以前可以达成和解,行政复议机关也可以调解的有()。
第三次科技革命推动了国际经济的调整,表现在()。①加速了世界经济的一体化②缩小了发展中国家与发达国家的贫富差距③推动了国际产业的分工④导致了西方大国经济地位的调整
按照唐律的规定,对于“决不待时”的重犯,不适用秋冬行刑,此重罪不包括()。
Whereisthenearestrestaurant?
最新回复
(
0
)