设有如下事件过程: 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=0To n m=0 For j=0To

admin2016-09-19  20

问题 设有如下事件过程:
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=0To n
m=0
For j=0To n
If a(i)=a(j) Then
m=m+1
End If
Next i
Ifm>x Then
x=m:b=a(i)
End If
Next i
Print b
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/CdLp777K
0

最新回复(0)