首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dim I,Num Randomize Do For I=1 To 1000 Num=
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dim I,Num Randomize Do For I=1 To 1000 Num=
admin
2017-11-23
25
问题
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Commandl_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
解析
本题考查的考点是有关随机数和退出语句的。在本题中,首先在循环中生成一个随机数,由于Rnd函数可以生成0~1开区间的数,所以Int(Rnd*100)能够生成0~99之间的整数,随后对此数进行判断,当随机数为12时退出内循环;当随机数为58时退出外循环;当随机数为65、68或92时将会结束整个窗体的运行。本题中的循环次数受随机数控制,所以次数不定。
转载请注明原文地址:https://kaotiyun.com/show/zAGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上添加一个文本框,名为text1,然后编写如下的load事件过程,则程序的运行结果是______。privatesubform_loadtext1.text=“”text1.se
下面程序的功能是由随机函数产生100个在200~700之间的整数,然后找出最大者,并记下是第几个数,但程序不完整,请选择适当的内容在下划线处将程序补充完整。Dima(100)Forj=1To100a(j)=Int(Rn
下列关于类、对象、属性和方法的叙述中,错误的是()。
设有如下的VisualBasic表达式:5*x^2-3*x-2*Sin(A)/3,它相当于代数式【】。
执行语句Open"C:\SDat.dat"ForInputAs#2后,系统()。
以下声明语句中错误的是()。
为了使标签能自动调整大小以显示全部文本内容,应把标签的【】属性设置为True。
在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Command1。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容,将程序补充完整。PrivateSu
可以产生30~50(含30和50)之间的随机整数的表达式是
窗体上有一个名称为Commandl的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下:PrivateSub
随机试题
一般来说,物种的生态幅越宽,其分布范围越______。
根据《公开发行证券的公司信息披露内容与格式准则第1号——招股说明书》的规定,发行人应设置招股说明书概览,发行人应在概览中披露()。
根据《行政诉讼法》及有关规定,若原告确有证据证明被告持有的证据对原告有利,被告无正当理由拒不提供,则法院的正确做法是()。(2015年回忆版)
导游在帮助散客游客办理入住饭店手续后,要与其商量接待计划。()
不属于《中华人民共和国教育法》基本制度的是()。
下列关于溶液和胶体的叙述,正确的是()。
(2014下项管)以下关于项目质量控制的叙述中,______是不正确的。
HenryManleywasalreadydeeplyindebt.ThejobthathadbeenofferedtoGeorgeinBirminghampaidbetter.
Readthisarticlefromthebusinesspagesofanewspaper.Choosethebestsentencefromtheoppositepagetofilleachofthega
Inordertoutilizefemaletalentseffectively,itmay_________benecessary,asmanyhavealreadyargued,toprovidesomesupp
最新回复
(
0
)