首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下事件过程: 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
34
问题
设有如下事件过程:
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全国计算机二级
相关试题推荐
有下面程序代码:PrivateSubCommandl—Click()DimxAsInteger,sAsIntegerx=1Fork=1To3x=x+1:proex:s=s+xNextkPrintsEndSubP
以下叙述中错误的是
设有如下函数:FunctionDelSpace(chAsString)AsIntegerDimn%,st$,c$st=“”:n=0Fork=1ToLen(ch)C=Mid(ch,k,1)Ifc“”Thenst=st&CEl
以下关于过程的叙述中,错误的是
设有以下过程:PrivateSUbproc(xAsInteger,OptionalYAsInteger)Printx,yEndSub针对此过程,下面正确的过程调用语句是
窗体上有一个名称为Commandl的命令按钮,其单击事件过程如下:PrivateSubCommand1Click()DimxAsInteger,yAsIntegerStaticzAsIntegerx=3:y=5:z=yCall
将数据项“Student”添加到名称为Listl的列表框中,并使其成为列表框第一项的语句为
用来设置文字字体是否斜体的属性是
使用语句DimA(1To10)AsInteger声明数组A后,以下叙述正确的是()。
随机试题
风湿性全心炎风湿性心肌炎
某公司一辆已缴纳车辆购置税并办理了登记注册手续的丰田240GLE型小轿车,因车祸更换底盘,经国家税务总局核定的同类型新车最低计税价格为300000元,下列说法正确的有()。
由于受访者记忆模糊,导致调查数据与其真值之间不一致,这种误差属于()。
统一的市场就是在全国()。
冬天,当路面积雪太厚时,可以通过“撒盐”来融雪。()
根据《中华人民共和国教育法》的规定,下列属于我国基本教育制度的是()
【2013-47】孔子私学以《诗》《书》《礼》《乐》《易》《春秋》六种典籍教授弟子,这就是“六艺”教育。
某系统的进程状态转换如下图所示,图中1、2、3和4分别表示引起状态转换的不同原因,原因4表示(23);一个进程状态转换会引起另一个进程状态转换的是(24)。
磁盘存储器的平均存取时间是指(14)。
Inthe1960s,medicalresearchersThomasHolmesandRichardRahedevelopedachecklistofstressfulevents.Theyappreciatedthe
最新回复
(
0
)