首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面事件过程: 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
29
问题
有下面事件过程:
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全国计算机二级
相关试题推荐
下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请补充完整。PrivateSubForm_Click()DimiAsIntegerOpen"Num.txt"ForOutputAs#1Fori=1To8_
编写如下程序:PrivateSubForm_Click()a$="54321":b$="abcde"Forj=1To5PrintMid$(a$,6-j,1)+Mid$(b$,j,1);
对于n个结点的单向链表(无表头结点),需要指针单元的个数至少为______。
阅读下面的程序段:Fori=1To3Forj=iTo3Fork=1To3a=a+iNextk
执行语句Open"TC.dat"ForRandomAs#1Len=50后,对文件TC.dat中的数据能执行的操作是【】。
关系操作的特点是______操作。
设A="12345678",则表达式Val(Left(A,4)+Mid(A,4,2))的值为______。
现有程序如下:OptionBase1PrivateSubFormClick()Dimx(5,6)AsInteger,y(5)AsIntegerFori=1Tn5ForJ=1To6x(i,j)=Int(Rnd*9+1)
随机试题
有两列正态变量x和y,已知其中Sx=4,Sy=2,Sx-y=3,那么这两列变量的积差相关系数是()
简述鱼骨图的使用步骤。
下列属于现代战略采购观点的是()
甲群落中有100个个体,其中90个属于种A,另外10个属于种B;乙群落中也有100个个体,但种A、B各占一半。那么
佝偻病早期的主要临床表现是:
[2012年,第21题]要使得二次型f(x1,x2,x3)=为正定的,则t的取值条件是()。
【背景资料】某施工单位与建设单位签订了路基工程施工承包合同,包括桥涵两座和路基填筑工程,合同工期390天,合同总价5000万元。施工前施工单位向工程师提交了施工组织设计和施工进度计划。该工程在施工过程中发生了如下情况:
下列选项中,新古典经济增长模型所包含的内容是()。
1836年,格林卡的歌剧_________在彼得堡上演,标志着俄罗斯民族歌剧的诞生。
【B1】【B2】
最新回复
(
0
)