设有如下事件过程: Private Sub Command 1 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 i=0

admin2019-01-17  21

问题 设有如下事件过程:
Private Sub Command 1 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 i=0 To 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
Printb
End Sub
运行程序,输出是

选项 A、2
B、3
C、5
D、9

答案B

解析 本题是一个二重循环,外循环从0循环到n,也就是遍历整个数组;在内循环中统计数组中和(i)相同的数组元素的个数放到m中,内循环结束后判断m是不是比x大,如果比x大的话让m成为新的x,并且把当前数组元素放到b中,其本质是求出重复次数最多的数字,x保存重复次数,b保存该数字。
转载请注明原文地址:https://kaotiyun.com/show/NgFp777K
0

最新回复(0)