VB求数组中（20个元素）出现次数最多的元素，还有出现几次

来源：百度知道编辑：UC知道时间：2024/05/12 11:16:20

把20个整型数据存放到一维数组a中，找出a中出现频率最高的元素值和出现的次数。例如把1，5，4，3，5，8，5，3放到a，则出现频率最高元素值是5，次数是3

Private Sub Command1_Click()

Randomize

Print "产生20个0~10之间的随机整数："

Dim a(20) As Integer

Dim b(10) As Integer

For i = 1 To 20

a(i) = Int(Rnd * 11)

Print a(i);

If i Mod 10 = 0 Then Print

Next i

For i = 1 To 20

b(a(i)) = b(a(i)) + 1

Next i

Max = 0: maxn = -1

For i = 0 To 10

If Max < b(i) Then Max = b(i): maxn = i

Next i

Print "出现最多的是"; maxn; "出现了"; Max; "次"

End Sub