首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dim i As Integer Dim num As Integer Dim n As Inte
在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dim i As Integer Dim num As Integer Dim n As Inte
admin
2016-06-30
57
问题
在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程:
Private Sub Commandl_Click()
Dim i As Integer
Dim num As Integer
Dim n As Integer
n=0
Randomize
For i=1 To 10
num=Int(Rnd*10)+1
Select Case hum Mod 2
Case 1
Exit For
Case 0
Print num
n=n+1
End Select
Next i
Print”n=”:n
End Sub
下面有关描述中正确的是( )。
选项
A、变量n的作用是累计自过程运行开始到结束所产生的偶数个数
B、当num的值为偶数时,则For循环将被终止
C、程序运行过程中,变量num共被赋值10次
D、num的值是1~11之间的整数
答案
A
解析
Rnd为英文Random的简写,中文意随机数。Rnd函数可以产生随机数,当一个应用程序不断地重复使用随机数时,同一序列的随机数会反复出现,用Randomize语句可以消除这种情况。在For循环中,循环变量i初始值为1,终止值为10,循环体语句“num=Int(Rnd*10)+1”可以随机产生一个0~9之间的随机整数赋值给变量num。故D选项错误;Select Case语句中根据num mod 2的结果,判断执行哪一个分支,如果num为偶数,则执行Case 0分支,如果num为奇数,则执行Case 1分支,当执行Case 1分支时,ExitFor语句为结束循环,故B、C选项均错误。程序通过语句“n=n+1”来统计num为偶数的个数,故A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/7vLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要使文本框获得输入焦点,则应采用文本框控件的
阅读下面的程序段:Fori=1To3Forj=1ToiFork=jTo4a=a+1NextkNextjNexti执行上面的三重循环后,a的值为()。
下列程序段()能够正确实现条件:如果X<Y则A=15,否则A=-15。
语句Fontsize=Fontsize*2的功能是______。
检查软件产品是否符合需求定义的过程称为
引用列表框(List1)最后一个数据项应使用()。
通用对话框中能打开“颜色对话框”的方法是()。
下列各种形式的循环中,输出“*”的个数最少的循环是()。
如下程序段定义了学生成绩的记录类型,由学号、姓名、三门课程成绩(百分制)组成。TypeStudnoAsIntegernameAsString*10score(1To3)AsSingleEndTyp
随机试题
胎头吸引术牵引时间最长不超过( )。
银汞合金中引起延缓性膨胀的元素是
神经细胞动作电位的幅度接近于()
患儿,女,4岁。发热3天后于头颈部出现淡红色充血性斑丘疹,体温上升至38.8℃,护士可采用哪项护理措施
佟冬17周岁,高中毕业后没有考上大学,待业在家,有心出去闯荡,苦于缺乏资金无法成行。佟冬生母因难产而死,他一直随生父和继母张敏生活,直到去年生父遭车祸去世。目前佟冬和张敏同住。某日,佟冬在张敏的抽屉里发现生父的遗嘱,内容为:生前的所有积蓄留给张敏供日常生活
从某种角度看,佛祖本质上就是一个具备现代意识的知识分子。他开创的佛教完全不像宗教,不仅没有一个全知全能的上帝,也不提倡个人崇拜,不搞繁琐的祭祀仪式。他倡导的轮回说可以理解为世间万物都有联系,互为因果,这在某种程度上是非常正确的。他相信人人平等,反对种族歧视
减刑的对象包括()。
简述法律推理的特征。
给定一个关键字序列(24,19,32,43,38,6,13,22),进行快速排序,扫描一趟后的结果是_____________。
AstheworldexcitedlygreetedSnuppy,thefirstcloned(克隆)dog,commentatorscelebratedourcleverness.Manyfeelproudthatour
最新回复
(
0
)