首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
36
问题
窗体上有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全国计算机二级
相关试题推荐
如果在VisualBasic集成环境中没有打开属性窗口,下列可以打开属性窗口的操作是
下列程序执行后,变量a的值为()。Dima,b,C,dAsSinglea=10:b=20:c=40Ifb>aThend=a:a=b:b=dEndIfIfC>aThen
已知数组Dima(1To10)AsInteger,则下面正确调用GetValue函数的是()。PrivateFunctionGetValue(a()AsInteger)AsIntegerFori=lTo10
语句PrintSgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是()。
语句PrintSgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是()。
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt。in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。窗体上按钮“读取数据”的功能是把in5.txt中的所有记录读到数组a中(每个
下面描述中,不属于软件危机表现的是()。
在满足实体完整性约束的条件下
随机试题
“过伸牵引加手法复位治疗脊柱屈曲型骨折”最早见于
安装在机械排烟系统的管道上平时呈关闭状态,发生火灾时由电信号或手动开启,同时排烟风机启动开始排烟的是()。
账证核对是指将账簿记录与记账凭证进行核对。()
根据有关法律、法规,目前可受理劳动争议的调解组织有()。
Word默认的行间距是()。
下列关CSMA/CD协议的叙述中,错误的是_______。
设置参照完整性的目的是()。
Howmenfirstlearnedtoinventwordsisunknown:inotherwords,theoriginoflanguageisamystery.Allwereallyknowistha
Learningcanbeasolitaryact,but______otherscanhelpenrichourexperienceandnurtureourgrowth.
WhySmallCompaniesWillWininThisEconomyIjustheardastoryfromaclientthat’shardtobelievebuttrue.Inthe
最新回复
(
0
)