2. 计算机
  3. 设有如下事件过程： 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)

admin2019-06-20  40
问题 设有如下事件过程：
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/urUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)