首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl Click() Dim 1,Nm Randomize Do FOr I=1 To 1000 Num=Int(Rnd*100):Print Num; Select Ca
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl Click() Dim 1,Nm Randomize Do FOr I=1 To 1000 Num=Int(Rnd*100):Print Num; Select Ca
admin
2015-11-24
27
问题
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Commandl Click()
Dim 1,Nm
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 1
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/nkLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列是一个循环结构的程序,循环体内的语句将执行的次数是k=0Fori=1to100Forj=1to10k=k+1NextNext
下述关于数据库系统的叙述中正确的是
数据的逻辑结构有线性结构和【】两大类。
下列程序段的执行结果为DimA(3,3)ForM=1To3ForN=1To3IfN=MOrN=3-M+1ThenA(M,N)=1ElseA(M,N)=0EndIfNextNNextMForM=1To
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=3:b=4:c=5PrintSecProc(c,b,A)EndSu
设计数据库的存储结构属于()。
设置状态栏控件的______属性可以改变状态栏在窗体上的位置。
有如下程序:infocase$=InputBox("Inputoneletter:")SelectCaseinfocase$case"a"grade$="Verygood"case"b"g
设在窗体上有个文本框,然后编写如下的事件过程:PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)ConstAlt=4ConstKey_F2=&H71altdown%=(S
代数式x1-|a|+In10+sin(x2+2π)/cos57°对应的VisualBasic表达式是()。
随机试题
社会主义市场经济体制是在宏观调控下使()
Theelementsotherthanhydrogenandheliumexistinsuchsmallquantitiesthatitisaccuratetosaythattheuniverseissomew
水泥管道试通棒一般为()。
马某系某市金川区阳关办事处盖塘村村民。2012年2月下旬,马某在本村塔石路东侧动工修建两层砖墙彩钢瓦房,建筑面积为80.68平方米。市规划和建设局(位于该市银湖区)于2月29日决定立案调查,派人前往现场勘查、拍照,并对马某进行了询问。经调查发现,马某所修建
青岛国际啤酒节始创于()年,每年在8月的第二个周末开慕。
如果你带队到火车站缉拿一名35岁男性持枪通缉犯,你怎么部署工作?
某办公室接到15份公文的处理任务,分配给甲、乙、丙三名工作人员处理。假如每名工作人员处理的公文份数不得少于3份,也不得多于10份,则共有()种分配方式。
搜索引擎
限制MailUser邮件主机里每个用户的邮箱大小不超过10MB,如何配置?限制MailUser邮件主机里最多允许有2000个邮件用户,如何配置?
若有以下程序#includemain(){inta=1,b=2,c=3,d=4,r=0;if(a!=1);elser=1;if(b==2)r+=2;if(c!=3);r+=3;if(d==4)r+=4;prin
最新回复
(
0
)