首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Commandl的命令按钮,事件过程如下: Private Sub Commandl_Click() Dim nuln As Integer,X As Integer num=Vat(I
窗体上有1个名称为Commandl的命令按钮,事件过程如下: Private Sub Commandl_Click() Dim nuln As Integer,X As Integer num=Vat(I
admin
2013-11-29
46
问题
窗体上有1个名称为Commandl的命令按钮,事件过程如下:
Private Sub Commandl_Click()
Dim nuln As Integer,X As Integer
num=Vat(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。第2次输入90时,Select语句执行Case Else分支x=x*num=0*90=O。第3次输入60时,Select语句执行Case Is<90分支x=Bum=60。因此窗体上显示为0 0 60。
转载请注明原文地址:https://kaotiyun.com/show/pHQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有3个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为()。
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下代码:OptionBabe1PrivateSubCommandl_Click()DimArrArt=Array(43,68,-25,65,-78,12,-79,43,-94,7
软件工程三要素包括方法、工具和过程,其中,【】支持软件开发的各个环节的控制和管理。
(1)在Forml的窗体上绘制一个图片框,其名称为Picturel。编写适当的事件过程,使程序运行后,若单击窗体,则从图片框的(300,600)位置处开始显示“VisualBasic’’。程序运行情况如图36—1所示。注意:程序中不得使用任何变
在考生文件夹下有一个工程文件sj5.vbp,程序代码中已经写入部分代码,要求根据下面的描述在窗体模块中定义3个名称分别为readdatal、readdata2和writedata的Sub过程。请先装入工程文件sj5.vbp,然后完成以下操作:
在数据库管理系统提供的数据语言中,负责数据的查询及增、删、改等操作的是
下列哪项是窗体对象的方法而不是属性______。
产生[10,27]之间的随机整数的VisualBasic表达式是
随机试题
阅读《五代史伶官传序》结尾一段文字,然后回答下列小题。《书》曰:“满招损,谦得益。”忧劳可以兴国,逸豫可以亡身,自然之理也。故方其盛也,举天下之豪杰,莫能与之争;及其衰也,数十伶人困之,而身死国灭,为天下笑。夫祸患常积于忽微,而智勇多困于所溺,岂独
A.10ml以下B.100~300mlC.50~100mlD.300~400mlE.10~50ml中量心包积液
监理工程师可以用保留金支付属于业主的合同义务而发生的费用。( )
水平衡中,Q定义为取水量,A为物料带入水量,H为耗水量,P为排水量,L为漏水量,其水平衡关系方程式应为()
基金公司的投资管理部门设置不包括()。
上海、深圳证券交易所规定未完成股改的股票的涨跌幅比例为()。
甲公司为上市公司,2×17年有关资料如下:(1)甲公司2×17年年初递延所得税资产借方余额为190万元,递延所得税负债贷方余额为10万元,具体构成项目如下:(2)甲公司2×17年度实现的利润总额为1610万元。2×17年度相关交易或事项资料如下:①
纸币流通下,可能使一国货币升值的因素有()。
Whenthenewassemblylineiscomplete,thefactorywillturn______onethousandcarsperday.
Dogswerefirstdomesticatedfromwolvesatleast17,000yearsago,butperhapsasearlyas150,000yearsagobaseduponrecent
最新回复
(
0
)