首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面事件过程: Private Sub Command1_Click() Dim a(20)As Integer,n(5)As Integer Dim m As Integer,Bum As Integer Randomi
有下面事件过程: Private Sub Command1_Click() Dim a(20)As Integer,n(5)As Integer Dim m As Integer,Bum As Integer Randomi
admin
2017-07-28
43
问题
有下面事件过程:
Private Sub Command1_Click()
Dim a(20)As Integer,n(5)As Integer
Dim m As Integer,Bum As Integer
Randomize
For k=1 To 20
a(k)=Int(Rnd*5)+1
Print a(k);
n(a(k))=n(a(k))+1
Next k
Print
m=n(1)
num=1
For k=2 To 5
If n(k)>m Fhen
m=n(k)
num=k
End If
Next k
Print m.num
End Sub
此事件过程运行时会出现2行输出,如果第一行输出是:
4 2 4 1 4 1 4 5 3 2 5 5 1 4 2 3 4 3 4 2
则第2行的输出是( )。
选项
A、5 3
B、7 4
C、3 5
D、4 7
答案
B
解析
在程序过程中定义了两个数组a和n,同时定义了两个整型变量m和num,程序中Randomize的功能是可以消除一个应用程序不断重复使用随机数时,同一序列的随机数会重复出现的情况。程序进入第一个For循环中,将会产生20个[1,5]区间的整数,并将产生的随机数存放到数组a中,语句“n(a(k))=n(a(k))+1”的功能是对产生的[1,5]区间的每个数进行计数统计,并将个数存储到数组n中,接下来的第二个For循环的功能是对区间[1,5]中的每个整数的个数求最大值,并将个数最多的整数进行输出。题目中产生的20个[1,5]区间的整数的个数依次为n(1)=3;n(2)=4;n(3)=3;n(4)=7;n(5)=3,可以得知整数4生成的次数最多,为7次。故程序最终输出7和4,B选项正确。本题选择B选项。
转载请注明原文地址:https://kaotiyun.com/show/KxGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面的数组声明语句中正确的是
Sub过程与Function过程最根本的区别是()。
为了使列表框中的项目分为多列显示,需要设置的属性为()。
算法执行过程中,所需要的基本运算次数称为算法的【】。
下列模式中,能够给出数据库物理存储结构与物理存取方法的是
下列叙述中不正确的是______。
设有如下记录类型:TypestudentNumberAsString*10NameAsString*8EndType窗体中有若干控件,单击其中的一个按钮Command1时,执行如下事件过程,该过程的功能是把数据输出到指定的文件中。根据
表达式5Mod3+3\5*2的值是
若要添加CommonDialog控件,则应从“工程”菜单中选择“部件”命令,在弹出的“部件”对话框的“控件”选项卡中选择______,将控件添加到工具箱中。
窗体上有两个按钮,执行程序后按Cancel按钮的输出结果是______。PrivateSubCommandl_Click()Print“北京”;EndSubPrivateSubCommand2,_Click()
随机试题
经过高压蒸气灭菌的用品可保留()
A.肝胆郁热或湿热B.痰饮C.胃有积热,或肝火犯胃,或胃腑血瘀D.伤食E.寒痰
图6-26中,水箱侧壁开一圆形薄壁孔口,直径d=5cm,水面恒定,孔口中心到水面的高度H=4.0m,已知孔口的流速系数φ=0.98收缩系数ε=0.62,孔口出流的流量Q为()L/s。
下列经济业务或事项,属于会计政策变更的有()。
行为疗法的基础理论包括()。
下面所列组织中在行政法上不具备行政主体资格的是()。
旅游收入最高的是()。
新学制标准(河南师范大学2013年研)
与十进制数291等值的十六进制数为______。
Itmaybethelastbookyou’lleverbuy.Andcertainly,froma【C1】______standpoint,itwillbetheonlybookyou’lleverneed.
最新回复
(
0
)