首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下事件过程: 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-10-23
33
问题
设有如下事件过程:
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/JDLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个通用对话框,其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程:PrivateSubCommandl_click()CommonDialogl.Friter="AllFiles(*.*)|*.*
目录列表框的Path属性的作用是()。
设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda,则另一命令按钮的名称可能是()。
在窗体上添加一命令按钮,名称为Command1,然后为该命令按钮编写如下事件过程,该过程的执行结果为OptionBase1PrivateSubCommand1_Click()DimaAsVarianta=Array(1,2,3,
有如下函数过程:FunctionFun(ByValxAsIngeger,ByValyAsInteger)AsIntegerDoWhile…y0reminder=xModyx=yy=reminderLo
阅读下面的程序段:Fora=1To2Forb=1ToaForc=bTo2i=i+1NextNextNextPrinti执行上面的3重循环后,i的值为
在窗体上画一个命令按钮,名称为Commandl。然后编写如下程序:PrivateSubCommandl_Click()ForI=1T02ForJ=1ToIPrintString(I,″Hello″);NextJPr
窗体上有一个图片控件和一个按钮控件,下列程序执行的结果是()。PfivateSubCommand1_click()Picture1.Picture=LoadPicture("C:\picture.ipg")Picture
下列不能打开菜单编辑器的操作是()。
随机试题
补偿贸易
倾听时要给予求助者鼓励性回应,让他们有勇气继续说,以下哪一项做得不好?()
小敏今年8岁,从她6岁起,小敏妈妈就开始带她上各种特长班,开发她的智力和培养她的兴趣爱好。但是,小敏妈妈发现小敏最近不愿意去上特长班,常在上课前说自己不舒服,要么肚子疼,要么头疼,就算去上课了,也会跟老师说自己难受要提前回家。小敏变得孤僻起来,回家后不愿
公文进入拟稿阶段的步骤是()。
所谓具有广泛迁移价值的材料是指()。
AgingposesaseriouschallengetoOECD(OrganizationofEconomicCo-operationandDevelopment)countries,inparticular,howto
使用VC++2010打开考生文件夹下modi1中的解决方案。此解决方案的项目中包含一个源程序文件modi1.c。在此程序中,函数fun的功能是:传入一个整数m,计算如下公式的值。例如,若输入5,则应输出-0.283333。请改正程序中的错误,使它能得
窗体中有一命令按钮,名称为Commandl。要求在窗体视图中单击此命令按钮后,命令按钮上面的文字变为加粗,实现该操作的VBA语句是()。
【B1】【B10】
Shenever______toreadthenewsbutturnedatoncetothecrosswordonthelastpage.
最新回复
(
0
)