首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下事件过程: 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
19
问题
在窗体上画一个命令按钮,然后编写如下事件过程:
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://jikaoti.com/ti/x3x0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有两个水平滚动条HV、HT,还有一个文本框Text1和一个标题为“计算”的命令按钮Command1,并编写了以下程序:PrivateSubCommand1_Click()Callealc(HV.Value,HT.Value)EndS
下面程序的输出结果是()。PrivateSubCommandl_Click()ch$=”ABCDEF”procchPrintchEndSubPriv
下面的程序运行时,单击窗体后,窗体上显示的结果是()。PrivateSubForm_Click()Dima(1To6)AsIntegerDimmini%,i%,j%,n%,t%,k%a(1)=8
为了在运行时能显示窗体左上角的控制框(系统菜单),可以设置以下哪个属性的值为True()。
如图所示,在窗体上有一个文本框控件,名称为TextTime:一个计时器控件,名称为Timer1。要求每1s在文本框中显示一次当前的时间。PrivateSubTimer1TextTime.Text=TimeEndSub
数据结构主要研究的是数据的逻辑结构、数据的运算和()。
以下程序在文本框Text1中输入任一字符串,并按相反的次序显示在文本框Text2中,在横线处应填写()。DimNAsString,CAsString,DAsStringN=Text1.TeXtM=_____
在文本框中,要设置显示的文本颜色,应该设置()属性。
双精度浮点数的类型说明符为
为了使每秒钟发生一次计时器事件,可以将其Interval属性设置为
随机试题
被译为万维网的是()
某生物种群波松分布的方差为V,平均数为m,且V<m则共内分布型是
下列哪些病人需要进行抗结核化疗
窦房结细胞的跨膜电位的特征为
患者自幼双眼上胞下垂,无力抬举,视物时仰首举额张口,或以手提睑。
不经计算,通过直接判定得出图4-30所示桁架中内力为零的杆数为()。
任何商品的价格都是由()共同决定的。
Treesshouldonlybeprunedwhenthereisagoodandclearreasonfordoingsoand,fortunately,thenumberofsuchreasonsiss
TaskOne-TopictobediscussedForquestions13-17,matchtheextractswiththetopicstobediscussedateachmeeting,listedA
Foralongtimewehaveworkedhardatisolatingtheindividualfamily.Thishasincreasedthemobilityofindividuals;andby
最新回复
(
0
)