首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下事件过程: 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
2015-06-30
80
问题
设有如下事件过程:
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/ljQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要使一个文本框具有水平和垂直滚动条,则应先将其MultiLine属性设置为True,然后再将ScrollBars属性设置为()。
下列程序的输出图形是()。Fork=0To360cr=Int(160*RnD)ang=-1415926/180*kCircle(2000,2000),500,cr,0,angNext
下面程序用“冒泡”法将数组a中的10个整数按升序排列,算法是:从数组的第1个元素开始,依次将相邻的两个数相比较(第1个数与第2个数,第2个数与第3个数……如此重复),若前面的数较大,则这两个数交换位置。这样执行一遍后,最后一个数已经是数组中最大的数。然后将
若A=20,B=80,C=70,D=30,则表达式A+B>160Or(B*C>200AndNotD>60)的值是【】。
为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是______。
在结构化方法中,软件功能分解属于软件开发中的阶段。
在长度为n的顺序表的第i(1≤i≤n+1)个位置上插入一个元素,元素的移动次数为______。
软件开发环境是全面支持软件开发全过程的【】集合。
只有当一个对象的______和______属性为True,它才能获得焦点。
两个或两个以上模块之间联系的紧密程度称为()。
随机试题
从总体上决定商品流通企业发展方向和道路的是()。
IR序列中,关于TI的选择,正确的是
湿度过低(干燥)易风化的药品是
个人贷款原则上应当采用()的方式向借款人交易对象支付。
下列加下划线的字意义相同的一项是()。
Theearth,ourhome,isveryimportancefor【M1】__________allofus.Nobodycanlivewithher.And【M2】__________ifwelovehe
互换
“十六国”时期,以_______为界,可分为前后两个时期。
ScienceWithoutBordersScienceandtechnologyisamongthefactorsthathavetakenthehumancivilizationtotheleveliten
Ausefulexpressionisslippingintothelistofkeytranslationsusedbynonsmokingworldtravelers:Don’tpuff(喷烟)onme.
最新回复
(
0
)