首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下事件过程: Private Sub Command1_Click() Dim a a=Array(3, 5, 6, 3, 2, 6, 5, 3, 5, 4, 3, 9, 4, 5, 6, 3, 5) x=0 n=UBound(a)
设有如下事件过程: Private Sub Command1_Click() Dim a a=Array(3, 5, 6, 3, 2, 6, 5, 3, 5, 4, 3, 9, 4, 5, 6, 3, 5) x=0 n=UBound(a)
admin
2019-03-14
29
问题
设有如下事件过程:
Private Sub Command1_Click()
Dim a
a=Array(3, 5, 6, 3, 2, 6, 5, 3, 5, 4, 3, 9, 4, 5, 6, 3, 5)
x=0
n=UBound(a)
For i=0 To n
m=0
For j=0 To n
If a(i)=a(j)Then
m=m+1
End If
Next j
If m>x Then x=m: b=a(i)
Next i
Print b
End Sub
运行程序,输出是( )。
选项
A、2
B、3
C、5
D、9
答案
B
解析
本题程序中内层For循环是统计具有相同值元素的个数,外层循环的功能则是,对数组中的所有元素进行统计,找出第1个具有相同值的元素个数最多的那个元素值。数组组中元素值为3的元素有5个,元素值为5的元素有5个,元素值为6的元素为3个,元素值为2的元素有1个,元素值为4的元素有1个,元素值为9的元素有1个。因此第1个具有相同元素值的最多个的元素值是3。
转载请注明原文地址:https://kaotiyun.com/show/nIUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
现有如下程序:PrivateSubCommand1—Click()s=0Fori=1To5s=s+f(5+i)NextPrintsEndSubPublicFunctionf(xAsInteger)Ifx>=10Th
下列关于通用对话框CommonDialogl的叙述中,错误的是
窗体上有一个用菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。以下叙述中错误的是
命令按钮不支持的事件为
设有如下事件过程:PrivateSubCommand1Click()Fori=1To5j=1DoPrint“*”i=i-1LoopUntilj=0NextiEndSub运行程序,输出“*”的个数是
使用Line控件在窗体上画一条从(0,0)到(600,700)的直线,则其相应属性的值应是
下面关于控件数组的叙述中正确的是
表达式Str(Len(“123”))+Str(77.7)的值是()。
下列说法中,错误的是
医院里有不同的科室,每名医生分属不同科室,则实体科室与实体医生间的联系是()。
随机试题
中国甲公司诉某国乙公司侵犯其商业秘密案件,由于属于重大涉外案件,所以一审由某中级人民法院审理。根据此案情,回答以下问题:第二次开庭前,甲公司发现审判员常某接受乙公司诉讼代理律师吴某的请客送礼,于是向法院提出回避申请,则以下各选项中哪些说法是不正确的?(
如图所示半径为R的半圆形截面,形心C与直径轴x1的距离yc=4R/(3π),求得半圆截面对于形心轴Xc的惯性矩IXc为:
甲公司20×5年12月31日发行在外的普通股为7.500万股。20×6年7月1日,根据股东大会决议,以20×5年12月31日股份为基础分派股票股利,每10股送3股;20×6年10月1日,根据经批准的股权激励计划,授予高级管理人员1500万份股票期权,每一份
按照发生的实际情况划分,旅游事故分为()。
企业劳动争议调解委员会由()组成。
下列属于智力因素的是()。
①按我们的标准,其中的大多数寿命都很短②它们在层层大气中像浮游生物一样漂游,在不断死亡着③据说,地球上任何时候都有着成亿兆的昆虫④有些被吃掉,有的只是随时随地掉落下来⑤有人估计过,在温带的每平方英里的上空,往上延伸到数千英尺的大气中,悬浮着二千五百
下列各项中,属于总分类会计科目的是()。
CollegeNightOwlsHaveLowerGradesCollegestudentswhoaremorningpeopletendtogetbettergradesthanthosewhoareni
Consumersandproducersobviouslymakedecisionsthatmoldtheeconomy,butthereisathirdmajor【1】toconsidertheroleofgov
最新回复
(
0
)