首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim I,Num Randomize Do For I=1 To 100
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim I,Num Randomize Do For I=1 To 100
admin
2020-04-18
59
问题
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim I,Num
Randomize
Do
For I=1 To 1000
Num=Int(Rnd*100)
Print Num;
Select Case Nam
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/TlTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果改变驱动器列表框的Drive属性,则将触发的事件是( )。
如图所示,在窗体上有一个文本框控件,名称为TextTime:一个计时器控件,名称为Timer1。要求每1s在文本框中显示一次当前的时间。PrivateSubTimer1TextTime.Text=TimeEndSub
在数据库设计中,将E-R图转换成关系数据模型的过程属于()。
开发软件所需高成本和产品的低质量之间有着尖锐的矛盾,这种现象称做()。
一棵二叉树的前序遍历结果是ABCEDF,中序遍历结果是CBAEDF,则其后序遍历的结果是()。
设a=5,b=6,c=7,d=8,执行下列语句后,x的值为()。x=IIf((a>b)And(c>d),10,20)
使用语句DimA(1To10)AsInteger声明数组A后,以下叙述正确的是()。
设有如下的用户定义类型:TypeStudentNumberAsString:NameAsString:AgeAsIntegerEndType则以下正确引用该类型成员的代码是
设有如下的记录类型:PrivateTypeEmployeenumAsStringnameAsStringEndType则下列语句中正确的是()。
在长度为64的有序线性表中进行顺序查找,最坏情况下需要比较的次数为
随机试题
嵌顿疝与绞窄疝鉴别要点是
对于颅骨骨折患者进行健康评估时,如何快速、简单的初步判断患者有脑脊液漏
患儿,2岁。发热,体温38℃,鼻塞流涕,咳嗽,皮疹初现,疹色红润,点粒稀疏,躯干为多,多为丘疹,少数疱疹,舌苔薄白,精神尚可。治法是()
下列不属于发布房地产广告需要提供的文件证明的是()
保持安全间距是一项重要的电气安全措施。在10kV无遮栏作业中,人体及其所携带工具与带电体之间最小距离为()m。
下列关于会计政策变更的表述中,正确的是()。
假定现在的年利率为10%,某投资者欲在3年内每年的年末收回10000元,那么此时他需要存入银行()元。(不考虑利息税)
甲、乙公司均系增值税一般纳税人,适用的增值税税率均为17%。甲公司以一批产品换取乙公司闲置未用的设备。产品的成本为350万元,公允价值为400万元(等于计税价格),设备的原价为420万元,已计提折旧70万元(不考虑与固定资产相关的增值税费),未计提减值准备
设连续函数f(x)满足f(x)+(x-t)dt=x(x>0),且f(1)=,则f(x)的极大值点和极大值分别为_________________.
SteveJobsdidn’tthinkthattechnologyalonecouldfixwhatailsAmericaneducation.It’sworthrememberingthatinthewakeof
最新回复
(
0
)