首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dim I,Num Randomize Do For I=l To 100
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dim I,Num Randomize Do For I=l To 100
admin
2013-11-29
35
问题
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Commandl_Click()
Dim I,Num
Randomize
Do
For I=l To 1000
Num=Int(Rnd*100)
Print Num;
Select Case Num
Case 12
Exit For
Case 58
Exit Do
Case 65,68,92
End
End Select
Next I
Loop
End Sub
上述事件过程执行后,下列描述中正确的是( )。
选项
A、Do循环执行的次数为1000次
B、在For循环中产生的随机数小于或等于100
C、当所产生的随机数为12时结束所有循环
D、当所产生的随机数为65、68或92时窗体关闭、程序结束
答案
D
解析
程序Do循环中镶嵌了For衙环,Do循环没有设置结束条件,而是在For循环体中的Select了退出Do循环和For循环及结束程序的分支,因此Do循环的次数无法确定。随机函数Rnd产生[0,1]之间的一个数,包括0但不包含1,因此Rnd * 100的范围是大于等于0小于100。随机数为65、68或92时结束程序关闭窗体,为58时退Do循环,为12时退出For循环进入下一次Do循环。
转载请注明原文地址:https://kaotiyun.com/show/0WQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列关于事件的叙述中不正确的是______。
对全局数据逻辑结构和特征的描述称为______。
在窗体上添加如下命令按纽,然后编写如下事件过程:PrivateSubCommand1_Click()Dima(10)AsIntegerDimp(3)AsIntegerk=5
在VisualBasic中,要将一个窗体从内存中释放,应使用______语句。
图像框有一个属性,可以自动调整图像框的大小,以适应图像的尺寸,这个属性是______。
在代码中定义了一个子过程:SubP(a,B)...EndSub下面______调用该过程的格式是正确的。...EndSub下面______调用该过程的格式是正确的。
假定在图片框控件Picture1中装入了一个图形,为了在程序运行时清除该图形,则应使用下列哪种方法()。
如果一个工人可管理多个设备,而一个设备只被一个工人管理,则实体“工人”与实体“设备”之间存在______的联系。
对于顺序存储的队列,存储空间大小为n,头指针为F,尾指针为R。若在逻辑上看成一个环,则队列中元素的个数为______。
随机试题
男性,44岁。发热、畏寒、全身酸痛l周,按感冒治疗,体温未退反有升高,2天来牙龈出血,皮肤瘀点住院。体检:体温40℃,两肺听诊(一),脾肋下2cm,胸骨有压痛。化验:Hb68g/L,WBC46.3×109/L,PLT36×109/L,骨髓检查证实
胆总管探查术后,拔除T形管的时间至少术后()。
某研究者拟采用多中心、随机、双盲临床试验评价补肾活血颗粒改善帕金森病患者运动功能的有效性,试验组使用的中药配方包括山茱萸、何首乌和当归等成分。对照组用药由淀粉、糊精和苦味剂等成分制成,其气味、口感与试验用药非常近似,但没有药理作用。该试验采用的对照属于(
某项目定额工期为150天,合同工期为120天,该工程直接工程费700万元,其中人工费100万元,该工程的平均日工资单价为50元,每工日夜间施工费开支30元,则该工程的夜间施工费为()万元。
下列关于机会成本的说法错误的是()。
银行自身能力分析包括()。
甲企业某年的财务杠杆系数为2.5,普通股每股收益的增长率为10%,上年的息税前利润为100万元,则该年息税前利润为()万元。
在微信息时代下,我们接收的信息大多是根据自己的兴趣搜集而来,我们眼中的世界也越发带有自身个性的____________,这也致使我们与他人对于一些事物的理解会出现很大偏差,相互之间更难融人对方的世界。所以,这一时代的人们更容易产生____________。
拾得遗失物的构成条件包括()。
Completetheformbelow.WriteNOMORETHANTWOWORDSAND/ORANUMBERforeachanswer.RegistrationformExampleAns
最新回复
(
0
)