首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下事件过程: 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
26
问题
在窗体上画一个命令按钮,然后编写如下事件过程:
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://jikaoti.com/ti/bdJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为m=1n=1SelectCasemCase1SelectCasenCase0print"A"Case1Print"B"EndSelectCase2
下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请补充完整。PrivateSubForm_Click()DimiAsIntegerOpen"Num.txt"ForOutputAs#1Fori=1To
下列程序的功能是:将数据1,2,…,10写入顺序文件Base.txt中,请填空。PrivateSubForm_Click()DimiAsIntegerOpen【】As#1Fori=1To10Print#1,iN
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:PrivateSubCommand1_Click()Dima(5,5)Fori=1To3Forj=1To4a(i,j)=i*jNe
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=3∶b=4∶c=5PrintSecProc(c,b,
声明一个变量为局部变量应该用
各种运算符间的优先顺序从高到低是
设计数据库的存储结构属于()。
以下Case语句中错误的是()。
设x=4,y=8,z=7,以下表达式的值是()。x<yAnd(Not(y>z)Orz<x
随机试题
针对工业企业应将下列各项计入财务费用的有()。
简述职务侵占罪的主要法律特征。
5岁儿童,低热干咳1周,加重3天,呈刺激性干咳,夜眠不安,查体,体温38℃,双肺呼吸音粗,未闻啰音,心腹未见异常,白细胞11×109/L,中性0.70,ESR40mm/h,胸片示右下肺呈云雾状薄片影,其最可能的诊断是
传染性单核细胞增多症( )上消化道出血( )
十二经脉中,相表里的阴经与阳经的交接部位在
适宜于产品创新而不适宜于工艺创新的组织结构是()。
根据《票据法》的规定,下列选项中汇票的绝对应记载事项有()。
已知线性方程组问:(1)a,b为何值时,方程组有解;(2)方程组有解时,求出方程组的导出组的基础解系;(3)方程组有解时,求出方程组的全部解.
下列说法中错误的是()。
循环控制语句“while(!scanf("%d",&i))getchar();”执行的情况是()
最新回复
(
0
)