首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Command1的命令按钮,事件过程如下: Private Sub Command1_Click() Dim num As Integer, x As Integer num=Val(InputBox("请输入一个正整数"))
窗体上有1个名称为Command1的命令按钮,事件过程如下: Private Sub Command1_Click() Dim num As Integer, x As Integer num=Val(InputBox("请输入一个正整数"))
admin
2015-08-28
24
问题
窗体上有1个名称为Command1的命令按钮,事件过程如下:
Private 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
解析
按钮事件中变量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/bQLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮Command1,然后编写如下程序:PrivateSubCommand1_Click()Dimarr()AsIntegerReDimarr(3)Fori=0To3arr(i)=iNextix=Input
要把一个命令按钮设置成无效,应设置属性______的值为False。
关系数据库管理系统能实现的专门关系运算包括()。
窗体上有三个文本框Text1、Text2和Text3以及一个命令按钮Command1,设文本框Text1中内容为12,文本框Text2中内容为34。下面程序的执行结果为______。PrivateSubCommand1_Cilick()Te
下列事件过程:PrivateSubCommand1_Click()MsgBoxStr(123+123)EndSub运行时,信息框中出现的结果是______。
ScrollBars属性用来设置文本框是否含有滚动条,要设置该属性,______属性的值必须设置为True。
假定建立了一个工程,该工程包括两个窗体,其名称(Name属性)分别为Form1和Form2,启动窗体为Form1。在Form1上画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请将下面的程序补充
在用通用对话框控件建立“打开”或“保存”对话框时,如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件),则正确的描述格式是______。
在滚动条的滑块移动时,Scroll事件连续返回______属性的数值。
随机试题
钨极氩弧焊焊接铝及铝合金时,采用交流焊接电源的原因是()。
脊柱肿瘤的腰背痛特点不正确的是
患者女性,39岁,发现皮肤黄色斑块10年,胸闷2年,反复发作胸痛1年,心电图检查提示心肌缺血。血压139/90mmHg,心率76次/分,节律齐、无杂音,双侧上眼睑有扁平黄色瘤,手指、足跟肌腱处见结节状黄色瘤,两眼有明显的角膜弓。血脂测定,TC:12.3ru
胎儿畸形容易发生的时间是
以下各项中,()货物不应征收海关监管手续费。
个人商用房贷款的借款人向贷款银行申请借款期限调整的条件中不包括()。
《义务教育法实施条例》属于()
习近平同志提出的“创新、协调、绿色、开放、共享”发展理念,是把()作为发展的出发点和落脚点,注重的是更加公平、更加正义。它为其他四种发展提供伦理支持和治理动力。
战后英国艾德礼政府的执政基础和主要政策
A、Toreducetheriskofheartattack.B、Tohelppeoplestopsmoking.C、Toreducethesalesoftraditionaltobacco.D、Totestthe
最新回复
(
0
)