首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Command1的命令按钮,事件过程如下: Private Sub Command1—Click() Dim Hum As Integer,x As Integer Bum=Val(InputBox(“请输入一个正整数”)) Select
窗体上有1个名称为Command1的命令按钮,事件过程如下: Private Sub Command1—Click() Dim Hum As Integer,x As Integer Bum=Val(InputBox(“请输入一个正整数”)) Select
admin
2017-12-13
24
问题
窗体上有1个名称为Command1的命令按钮,事件过程如下:
Private Sub Command1—Click()
Dim Hum As Integer,x As Integer
Bum=Val(InputBox(“请输入一个正整数”))
Select Case Bum
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
解析
按钮事件中变量x为过程局部变量,第1次输入100时,Select语句执行Case Else分支x=x*num=0*100=0。第二次输入90时,Select语句执行Case Else分支x=x*num=0*90=0。第三次输入60时Select语句执行Case Is<90分支x=num=60。因此窗体上显示为0 0 60。
转载请注明原文地址:https://kaotiyun.com/show/8uGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
深度为n(n>0)的二叉树最多有【】个结点。
以下程序段运行的结果是______。Dima(-1To5)AsBooleanDimflagAsBooleanflag=FalseDimiAsIntegerDimjAsIntegerD
下列程序段的功能为:单击窗体后,在D盘Temp目录下address.txt文件中输入“张三,20,Male”。请填空。PrivateSubform_click()DimnameAsStringDimageAsIntegerDim
下列叙述中正确的是______。
用Write和Print语句向文件中写入多个数据的差别在于______。
在窗体上画3个名称为Command1的命令按钮作为控件数组,从左到右,控件数组下标分别为0、1、2,界面如下图所示。有下列程序:PrivateSubCommand1Click(IndexAsInteger)DimsAs
下面的程序是找出两个正整数a和b,使得a<b、a+b=99、a和b的最大公约数是3的倍数,并统计满足条件数对的个数。OptionExplicitDimaAsInteger,bAsInteger,nAsInteger,cAsI
下述关于数据库系统的叙述中正确的是______。
一棵二叉树中共有80个叶子结点与70个度为1的结点,则该二叉树中的总结点数为
软件测试的目的是
随机试题
单一客户风险的监测,需要从个体延伸到“风险域”企业。()
最易引起口腔粘膜及皮肤发生过敏反应的药物是
评价蛋白质营养价值高低的主要指标是
咖啡因,茶碱等黄嘌呤生物碱的特征反应
溴酸钾法测定异烟肼含量的原理是
建设项目能否早日投产或及时投产取决于()。
下列导致承包人索赔的情况中,工程师应批准补偿费用及利润的有()
2×18年12月31日,甲公司涉及的一项产品质量未决诉讼案,败诉的可能性为80%。如果胜诉,不需要支付任何费用;如果败诉,需支付赔偿金及诉讼费共计60万元,同时基本确定可从保险公司获得45万元的赔偿。当日,甲公司应确认预计负债的金额为(
阅读下面的材料,按要求作文。网络的不断发展为人们的生活带来了诸多便利,使人与人之间的交流变得十分简单、触手可及。有人说互联网使人与人之间的联系变得更加紧密了,然而调查显示,许多网友即使社交软件里好友上千,但是依然倍感孤独。甚至,在调查对象中有近半
Whenmengrowolder,theirhairoftenbeginstofallout.Whenhairbeginstofallout【C1】______oldage,itisimpossibletomak
最新回复
(
0
)