设有如下事件过程: 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)

admin2015-08-28  64

问题 设有如下事件过程:
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://jikaoti.com/ti/8bJ0FFFM
0

最新回复(0)