首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim I, Num Randomize Do For I=1 To 1000 Num=Int(Rnd *
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim I, Num Randomize Do For I=1 To 1000 Num=Int(Rnd *
admin
2015-10-23
36
问题
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim I, Num
Randomize
Do
For I=1 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/EPLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,其名称为Commandl,然后编写如下程序:PfivateSubCommandl_Click()Dima(10)AsIntegerDimxAsIntegerFori=1To
设在菜单编辑器中定义了一个菜单项,名为menu1。为了在运行时隐藏该菜单项,应使用的语句是
在窗体上添加一个按钮,名为Command1,然后编写如下的事件过程,输出结果为PrinvateSubComand1_Click()Fori=1To4x=4Forj=1To3x=3Fork=1To2x=x+5
在窗体上画一个命令按钮command1和两个文本框,名称分别为Text1和Text2。编写如下两个事件过程:DimStr1AsString,str2AsStringPrivateSubform_load()Text1.Text="
随机文件以[11]为单位读写,二进制文件以[12]为单位读写。
如果一个工程含有多个窗体及标准模块,则以下叙述中错误的是()。
数据库技术的根本目标是要解决数据的
下列叙述中,不属于测试的特征的是______。
与键盘操作有关的事件有KeyPress、KeyUp和KeyDown事件,当用户按下并且释放一个键后,这三个事件发生的顺序是
某二叉树中度为2的结点有n个,则该二叉树中有【】个叶子结点。
随机试题
5岁女孩,因全身水肿1个月住院,血压90/60mmHg;尿蛋白(+++~++++),红细胞5~10个/HP,颗粒管型1~2个4HP。此例水肿形成的原因哪项是不正确的
膨胀机转子转速要调整到使膨胀机具有最佳效率,这样常导致另一端的压缩机设计采取折中办法降低压缩机效率。
A.寒战、高热、胸痛、铁锈色痰B.慢性咳嗽、大量脓痰、反复咯血C.劳力性呼吸困难伴咳嗽、咯血D.午后低热、盗汗、咳嗽、咳痰、痰中带血E.咳嗽、咳痰伴喘息5年,持续3个月,连续2年以上
关于上消化道出血的描述正确的是
关于头部定位线的描述,错误的是
关于红细胞比容说法错误的是
空气栓塞致死的原因是气泡阻塞()
Whenhesucceededinfinishinghisdesign,thetechnician______(似乎忘乎所以了)
A、Hecloseshisdesignstudioforawholeyear.B、HegoestoNewYorkforasight-seeingtour.C、Hewritesanewsongforafamo
Participantobservationalsoreflectsanthropology’sdualnatureasbothascientificandahumanisticdiscipline(科学).Through
最新回复
(
0
)