首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下事件过程: Private Sub Command 1_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 Fo
设有如下事件过程: Private Sub Command 1_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 Fo
admin
2020-04-18
46
问题
设有如下事件过程:
Private Sub Command 1_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 i=0 To n
Ifa(i)=a(j)Then
m=m+1
End If
Next j
Ifm>x Then
x=m:b=a(i)
End If
Next i
Printb
End Sub
运行程序,输出是
选项
A、2
B、3
C、5
D、9
答案
B
解析
本题是一个二重循环,外循环从0循环到n,也就是遍历整个数组;在内循环中统计数组中和a(i)相同的数组元素的个数放到m中,内循环结束后判断m是不是比x大,如果比x大的话让m成为新的x,并且把当前数组元素放到b中,其本质是求出重复次数最多的数字,x保存重复次数,b保存该数字。
转载请注明原文地址:https://kaotiyun.com/show/jqTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下叙述中错误的是()。
为计算an的值,某人编写了函数power如下:PrivateFunctionpower(aAsInteger,nAsInteger)AsLongDimsAsLongp=aFork=1Ton
下列叙述中正确的是()。
标准模块中有如下程序代码:PublicxASInteger,YAsIntegerSubTempSub()x=10:y=20EndSub在窗体上有1个命令按钮,并有如下事件过程:Pr
待排序的关键码序列为(15,20,9,30,67,65,45,90),要按关键码值递增的顺序排序,采取简单选择排序法,第一趟排序后关键码15被放到第()个位置。
下列程序执行后,变量a的值为()。Dima,b,C,dAsSinglea=10:b=20:c=40Ifb>aThend=a:a=b:b=dEndIfIfc>aThen
设置定时器控件的Interval属性为2000,Enabled属性为True,并且有下面的事件过程,程序运行时计算机将发出()次Beep声。SubTimer1Timer()BeepEndSub
下列有关过程的叙述中错误的是()。
下列关于利用通用对话框产生的文件对话框的相关属性的描述中,错误的是
数据流图用于抽象描述一个软件的逻辑模型,数据流图由一些特定的图符构成。下面图符名标识的图符不属于数据流图合法图符的是
随机试题
肱二头肌腱内侧毗邻()
简述子宫的功能。
Publicrelationsismanagementfunctionthatcreates,develops,andcarriesoutpoliciesandprogramstoinfluencepublicopinio
最严重的石膏综合征是()。
Theworldisknowntousthroughmanysenses,notjusthearing,smell,vision,andatcloserange,touchandtaste.Ourski
患者,女性,59岁,患"脑梗死"2年,症见右半身不遂,语言不利,小便清长,气短神疲,舌质淡暗,脉涩弱者。治宜选用
下列选项中,不属于设计方案比选原则的是()。
甲企业已提取法定盈余公积120万,已提取任意盈余公积80万元,已提取法定公益金30万元,现决定用盈余公积资金给职工修建浴室,需花费3万元,请问可以使用的资金是( )。
根据以下资料,回答问题。截至2014年末,我国共有博物馆3658个,占文物机构总数的43.5%。全国文物机构拥有文物藏品4063.58万件,比上年末增加222.77万件。其中,博物馆文物藏品2929.97万件,文物商店文物藏品770.00万件。文物藏品中
A、Strangersareusuallyoflittlehelp.B、Oneshouldtakecareoftheirbike.C、Newsreportsmakepeoplefamous.D、Anactofkin
最新回复
(
0
)