首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Command 1的命令按钮,事件过程如下: Private Sub Command 1 Click() Dim num As Integer,x As Integer num=Val(InputBox("请输入一个正整数"))
窗体上有1个名称为Command 1的命令按钮,事件过程如下: Private Sub Command 1 Click() Dim num As Integer,x As Integer num=Val(InputBox("请输入一个正整数"))
admin
2015-05-29
59
问题
窗体上有1个名称为Command 1的命令按钮,事件过程如下:
Private Sub Command 1 Click()
Dim num As Integer,x As Integer
num=Val(InputBox("请输入一个正整数"))
Select Case hum
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语句,可以同时对条件的多个取值来判断。其格式为:
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://kaotiyun.com/show/RCQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据库设计包括两个方面的设计内容,它们是
设有如下程序PrivateSubFormClick()DimaAsInteger,bAsIntegera=20:b=50p1a,bp2a,b
在窗体上添加一个文本框Text1,然后编写如下的Load事件过程,则程序运行结果为()。PrivatesubForm_Load()Text1.Text=""Text1.SetFocusF
有如下事件过程:PrivateSubCommand1_Click()b=10DoUntilb=-1a=InputBox("请输入a的值")a=Val(A)b=
在窗体上画两个文本框Text1和Text2,一个命令按钮Command1,请阅读以下程序段:PrivateSubCommand1_Click()x=0DoUntilx>=50x=
在窗体中放置控件,对该控件的操作错误的是()。
下列叙述中正确的是()。
下面的属性中,用于自动调整图像框中图形内容的大小的是
线性表的顺序存储结构和线性表的链式存储结构分别是______。
下列关于dowhile...loop和do...100puntil循环执行循环体次数的描述正确的是()
随机试题
公证法律关系的客体包括
明代的《肖曹遗笔》对诉状制作有专门要求,其中,诉状的案由称之为()
A.导赤散B.白虎汤C.生脉散D.竹叶石膏汤E.王氏清暑益气汤壮热面赤,烦渴引饮,汗出恶热,脉洪大有力者,治宜选用
A.以养血和营,敛阴止汗为主B.引药入肝,敛血养血、疏肝解郁的作用最强C.增强养血和脾、止泻作用,适用于肝旺脾虚,腹痛腹泻D.长于益气补中E.调经止血,柔肝止痛醋炙白芍()。
急性阑尾炎非手术治疗期间,体温升高,全腹疼痛,腹肌紧张,其病情判断为
张某、方某共同出资,分别设立甲公司和丙公司。2013年3月1日,甲公司与乙公司签订了开发某房地产项目的《合作协议一》,约定如下:“甲公司将丙公司10%的股权转让给乙公司,乙公司在协议签订之日起三日内向甲公司支付首付款4000万元,尾款1000万元在次年3月
下列各项中,属于企业货币资金核算内容的有( )。
次要质量特性是指()。
下列关于GDP指标的说法中,正确的有()。
Thehumanbraincontains10thousandmillioncellsandeachofthesemayhaveathousandconnections.Suchenormousnumbersuse
最新回复
(
0
)