首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下事件过程: 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
29
问题
在窗体上画一个命令按钮,然后编写如下事件过程:
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全国计算机二级
相关试题推荐
在窗体上添加一命令按钮,其名为Command1,然后编写代码如下。privateSubCommand1_Click()Dimarr(5)AsInteger,arr1(5)AsIntegern=3Fori=1To5arr(i
在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编写如下事件过程。PrivateSubForm_load()List1.AddItem"Itern1"List1.AddItem"Iter
在窗体上画一个命令按钮command1和两个文本框,名称分别为Text1和Text2。编写如下两个事件过程:DimStr1AsString,str2AsStringPrivateSubform_load()Text1.Text="
下列程序的作用是将三个数按从大到小进行排序,请填空。Ifa<bThend=aa=bb=dEndIfIfa<cThend=aa=cc=d
设A$="Hello",下列语句正确的是()。
只能用来显示字符信息的控件是
语句FontSize=FontSize*2的功能是______。
设在工程中定义了下列类型:TypeStutypeinoAsIntegerstrnameAsString*20strsexAsString*1smarkAsSingleEndType在窗体上正确使用这个类型的是下列哪个操作(
数据库系统的核心是()。
随机试题
调压器工作不正常的原因之一是膜片固定器发生磨损,其处理的方法是()。
某男士,58岁,糖尿病患者,医生劝其进行规律体育锻炼,饮食合理,以预防冠心病的发生,这属于
骨折的治疗原则是
A.使阴道上皮细胞增生、角化B.使增生期子宫内膜转变为分泌期内膜C.促进卵泡发育,使成熟卵泡排卵D.促进黄体发育生成E.刺激生乳素的分泌
患者,男,32岁。3个月前外伤致缺失,要求固定义齿修复。查:缺失区牙槽骨及余留牙正常。该患者的固定义齿属于
甲公司委派业务员王某去乙公司购买钢材,王某持盖章空白合同书以及采购钢材授权委托书前往。甲、乙公司于2010年3月1日签订钢材买卖合同,约定由乙公司代办托运,货交承运人丙公司后即视为完成交付。钢材总价款为100万元,货交丙公司后甲公司付50万元货款,货到甲公
某工厂的配电系统如图6-11。求在d点发生三相短路时的I",I0.2,Ik(或I∞),ich,S"。由于发电机为有限容量电源,现给出I"*=3.25,=2.6,=2.38,Kch取1.8。d点的短路冲击电流ich为()。
英法绥靖政策达到顶点的表现是()。
软件调试方法中的静态调试方法之一为______。
GaspricewarningascoldMarchleadstoshortsuppliesA)ThecoldsnapinMarchcouldleadtoBritain’sgassuppliesrunningou
最新回复
(
0
)