首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim I,Num Randomize Do For I=1To1000 Num=Int(Rnd*100):Print Num; Select Cas
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim I,Num Randomize Do For I=1To1000 Num=Int(Rnd*100):Print Num; Select Cas
admin
2016-09-19
57
问题
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim I,Num
Randomize
Do
For I=1To1000
Num=Int(Rnd*100):Print Num;
Select Case Num
Case12
Exit For
Case58
Exit Do
Case65,68,92
End
End Select
Next I
Loop
End Sub
上述事件过程执行后,下列描述中正确的是
选项
A、Do循环执行的次数为1000次
B、在For循环中产生的随机数小于或等十100
C、当所产生的随机数为12时结束所有循环
D、当所产生的随机数为65、68或92时窗体关闭、程序结束
答案
D
解析
本题考查的考点是有关随机数和退出语句的。在本题中,首先在循环中生成一个随机数,由于Rnd函数可以生成0~1开区间的数,所以Int(Rnd*100)能够生成0~99之间的整数,随后对此数进行判断,当随机数为12时退出内循环;当随机数为58时退出外循环;当随机数为65、68或92时将会结束整个窗体的运行。本题中的循环次数受随机数控制,所以次数不定。
转载请注明原文地址:https://kaotiyun.com/show/kdLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有以下程序:SubsubP(b()AsInteger) Fori=1To4 b(i)=2*i NextiEndSubPrivateSubCommand1_Click()Dim
在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:PrivateSubCommand1_Click()S$=InputBox("请输入一个字符串")T
下列程序运行后的输出结果是FunctionFun(n)x=n*nFun=x一11EndFunctionPrivateSubCommand1_Click()Fork=1To2Y=Fun(k
在窗体上有一个文本框控件,名称为TextTime;--个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为:PrivateSubTimer1_______TxtTime.text=TimeEndS
当用户()时,会引发焦点所在控件的KeyPress事件。
以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是()。
设程序中有如下数组定义和过程调用语句:Dima(10)AsInteger……Callp(a)如下过程定义中,正确的是
以下关于窗体的叙述中,错误的是
假定建立了一个名为Commandl的命令按钮数组,则以下说法中错误的是()。
随机试题
企业在增加对国家贡献和满足顾客需要的前提下,增加企业收益和经营者、劳动者收人的目标是指
A.β2-肾上腺素受体激动剂B.抗胆碱药C.氨茶碱D.糖皮质激素控制支气管哮喘急性发作最有效的药物是
女性39岁患者,左乳外上象限探及一15mm×13mm实性低回声。形态不规则,边界模糊,呈小分叶,成角,有毛刺。根据乳腺BI—RADs分级,该患者属于下列哪类分级
肠上皮化生是肠黏膜上皮出现胃黏膜上皮。()
总价法下,当现金折扣实际发生时,应计入()。
有一个初始量,不随业务量的变化而变化,类似于固定成本,在此初始量之上则随着业务量的变化而变化的成本是半变动成本。()
下列关于经营风险和经营杠杆效应的表述,正确的有()。
2016年吉林省政府工作报告指出,要继续实施新农村“千村示范,万村提升”工程。这里的“千村示范,万村提升”工程是指()。
下面选项中关于位运算的叙述正确的是
A、Trytorecoverwithoutseeingadoctor.B、Takethedayofftomorrow.C、Turnuptheheat.D、Wakeupatnighttotakehismedici
最新回复
(
0
)