首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim I, Num Randomize Do For I=1 To 1000 Num=Int(Rnd *
在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim I, Num Randomize Do For I=1 To 1000 Num=Int(Rnd *
admin
2018-09-19
93
问题
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_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
解析
程序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/36Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于数组的叙述中,错误的是
有如下数据定义语句:Dima,bAsIntegerDimx%,yasInteger执行上述语句后,不是整型变量的是
设窗体上有一个名称为Option1的单选按钮数组(其下标从0开始),共有4个单选按钮,并有下面事件过程:PrivateSubOption1_Click(IndexAsInteger)n=IndexIfIndex<3
支持子程序调用的数据结构是( )。
面向对象方法中,实现对象的数据和操作结合于统一体中的是
标准模块中有如下程序代码:PublicxAsInteger,yAsIntegerSubvar_pub() x=10∶y=20EndSub在窗体上有1个命令按钮,并有如下事件过程:PrivateSubCommand1_Clic
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
(1)在名称为Form1、标题为“考试”的窗体上添加一个名称为Combo1、初始文本为空的下拉式组合框,下拉列表中有“隶书”、“宋体”和“楷体”三个项目。程序运行后的窗体如图所示。注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt1.vb
假定在图片框Picture1中装入了一个图片,在程序运行中,为了清除该图片(注意,清除图片,而不是删除图片框),应采用的正确方法是( )。
对长度为n的线性表排序,在最坏情况下,比较次数不是n(n-1)/2的排序方法是( )。
随机试题
A.食管脱落细胞学检查B.食管钡剂造影C.胸CT检查D.食管镜E.32P放射性同位素检查一名38岁男性患者,自觉下咽不畅一年多,经食管钡餐X线造影,食管镜检查均阴性,患者要求进一步检查,对此可采用哪种方法
A、文火B、中火C、武火D、先文火后武火E、先武火后文火药物炒焦多用()
根据《环境影响评价技术导则一总纲》,跟踪监测计划的内容不包括()。
()是我国证券市场的主要机构。
显示分组数据频数分布特征的图形有()。
甲从乙银行贷款200万元,双方于8月1日签订贷款合同,丙以保证人身份在贷款合同上签字,因担心丙的资信状况,乙银行又要求甲提供担保,为此双方于8月3日签订书面质押合同,质物为甲的一辆轿车,但甲未将轿车交付给乙银行。甲到期无力偿还贷款。根据担保法律制度的规定,
企业将投资性房地产的后续计量从成本模式转为公允价值模式的,转换日投资性房地产的公允价值高于其账面价值的差额会对财务报表项目产生影响的是()。
依据《中华人民共和国教育法》的规定,应当对教师、学生实行优待,为受教育者接受教育提供便利的场所不包括()。
前7项和最大
全民教育
最新回复
(
0
)