首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
有下面事件过程: Private Sub Command1_Click() Dim a(20)As Integer,n(5)As Integer Dim m As Integer,num As Integer Randomize For k=1To20 a
有下面事件过程: Private Sub Command1_Click() Dim a(20)As Integer,n(5)As Integer Dim m As Integer,num As Integer Randomize For k=1To20 a
admin
2018-06-20
18
问题
有下面事件过程:
Private Sub Command1_Click()
Dim a(20)As Integer,n(5)As Integer
Dim m As Integer,num As Integer
Randomize
For k=1To20
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=2To5
If n(k)>m Then
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、53
B、74
C、35
D、47
答案
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/WaGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下能接收焦点的控件是
VisualBasic根据计算机访问文件的方式将文件分成3类,其中不包括()。
下列关于函数过程的叙述中,正确的是()。
使用语句DimA(1To10)AsInteger声明数组A后,以下叙述正确的是()。
在考生文件夹下有一个工程文件sjt4.vbp,窗体上已经画出所有控件,如图2-37所示。在运行时,如果单击”开始”按钮,则窗体上的汽车图标每0.1秒向右移动一次(初始状态下不移动);如果单击”停止”按钮,则停止移动。请完成以下工作:①设置适当控件的适当
以下叙述中错误的是()。
软件生命周期中,能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是()。
在下列模式中,能够给出数据库物理存储结构与物理存取方法的是()。
设x=4,y=8,z=7,则以下表达式的运算结果是()。 xz)Orz
设窗体上有一个名称为Option1的单选按钮数组(其下标从0开始),共有4个单选按钮,并有下面事件过程:PrivateSubOption1_Click(IndexAsInteger)n=IndexIfIndex<3
随机试题
A全国性批发企业B区域性批发企业C零售企业D药品零售连锁企业E医疗机构《麻醉药品和精神药品管理条例》规定:跨省、自治区、直辖市从事麻醉药品和第一类精神药品、第二类精神药品批发业务
没有任何临床症状但能排出病原体的人称为临床症状消失后,仍继续排出病原体的人称为
呃逆由胃气上逆动膈而成,下列除哪项外,均为呃逆的病因病理
A.回盲部切除术B.右半结肠切除术C.左半横结肠、降结肠和部分乙状结肠切除术D.左半横结肠、降结肠、乙状结肠和其系膜及淋巴结切除术E.乙状结肠部分切除术降结肠癌的手术方式
在进行无机结合料混合材料无侧限抗压强度试验验证时,宜在摊铺机后取样,且应从()台不同的料车取样,混合后再按四分法取样。
建筑大楼常用的排水管及管件是()。
水泥稳定土(粒料)类基层进入冬期时,应在基层施工时向基层材料中掺入()。
钻孔灌注桩施工的主要工序正确的是()。
已知目前通货膨胀率为2%,投资者要求的债券实际收益率为8%,则该债券的5年期贴现因子约为()。
TheWorld’sEndangeredLanguagesAsthesecondmillennium(一千年)comestoaclose,morethan6,000distincthumanlanguagesa
最新回复
(
0
)