首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下事件过程: 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
61
问题
设有如下事件过程:
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全国计算机二级
相关试题推荐
设有如下语句:Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#以下关于这段代码的叙述中,错误的是()。
在窗体上绘制一个文本框,然后编写如下事件过程:PrivateSubForm_Click()x=InputBox("请输入一个整数")Printx+Text1.TextEndSub程序运行时,在文本框中输入45
设在窗体上有两个命令按钮,其中一个命令按钮的名称为cmda,则另一命令按钮的名称可能是()。
如果将PassWordChar属性设置为一个字符,如星号(*),运行时,在文本框中输入的字符仍然显示出来,而不显示星号,原因可能是()。
设有如下程序:PrivateSubForm_Click()DimaAsInteger,sAsIntegern=8:s=0Dos=s+n:n=n-1LoopWhilen>0P
在窗体上添加一命令按钮,名称为Command1,然后为该命令按钮编写如下事件过程,该过程的执行结果为OptionBase1PrivateSubCommand1_Click()DimaAsVarianta=Array(1,2,3,
要清除已经在图片框Picturel中打印的字符串而不清除图片框中的图像,应使用语句()。
下列程序的输出图形是()。Fork=0To360cr=Int(160*RnD)ang=-3.1415926/180*kCircle(2000,2000),500,cr,0,angNext
在窗体上画一个文本框和一个图片框,然后编写下列两个事件过程:PrivateSubForm_C1ick()Textl.Text="VBProgramming"EndSubPrivateSubText1_change()
随机试题
设备监理的目的是为了()。
Eventhoughweliveinahigh-techage,it’sstillimpossibletopredicttheweather________.
某方法一次测量得出的结果很接近于真值,说明该方法
关于子宫下段,不正确的是
2019年《中华人民共和国药品管理法》修订,首次将“保护和促进公众健康”作为新的药品管理理念。《基本医疗卫生与健康促进法》对此有更深入的规定。关于公民健康权和获得基本医疗卫生服务权利的说法,错误的是
患者,男性,35岁。3个月来发热、乏力、盗汗、食欲缺乏。查体:体重减轻,一般状况尚可。实验室检查:痰结核分枝杆菌阳性,初步诊断为肺结核收住入院。医嘱行PPD试验。护士对营养失调的护理措施不正确的是
下列各岗位中,出纳不得同时兼任的是()。
从公共产品理论的角度看,学前教育具有()
设曲线y=lnx与y=k相切,则公共切线为_______.
下列删除VLAN的命令中,无法执行的是()。
最新回复
(
0
)