首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面事件过程: 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
21
问题
有下面事件过程:
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全国计算机二级
相关试题推荐
输入任意长度的字符串,要求将字符顺序倒置,例如,将输入的“ABCDE”变换成“EDCBA”。请把程序补充完整。PrivateSubCommandl_ClickDima$,i%,c$,d$
编写如下通用过程:SubProc(xAsSingle,yAsSingle)t=xx=t/yy=tMody
惟一能区别一个控件的属性是______。
以下能够触发文本框Change事件的操作是______。
下列程序的输出图形是()。Fork=0To360cr=Int(160*Rnd)ang=-3.1415926/180*kCircle(2000,2000),500,cr,0,angNext
表达式5Mod3+3\5*2的值是
下面程序的功能是统计字符串中"i"的个数,请填空。SubCOU()DimnAsInteger a$="BeijingUniversityofTechnology" n=Len(a$) Fori=
将算法的5个特性中,算法必须能在执行有限个步骤之后终止指的是算法的【】性。
有关菜单的说法不恰当的是
在面向对象的程序设计中,用来请求对象执行某一处理或回答某些信息的要求称为______。
随机试题
行政处罚实施机关,不包括()
病人高热时,将输液管看成是一条蛇,此症状是
下列对离婚案件的诉讼管辖的表述中正确的有哪些?()
用集总参数法求解瞬态导热问题时,必须满足的条件是()。
土石围堰的防渗结构形式有( )等。
保本基金的分析指标主要包括()等。
手机:通讯:辐射
库利(厦门大学2010年研)
中华民族精神的核心是()
打开考生文件夹下的演示文稿yswg.pptx,按照下列要求完成对此文稿的修饰并保存。将第二张幻灯片版式改变为“标题,内容与文本”,文本部分的动画效果设置为:“向内溶解”;在演示文稿的开始处插入一张“仅标题”幻灯片,作为文稿的第一张幻灯片,标题键入“家
最新回复
(
0
)