Question

VB 求代码啊！ 把20个整型数据存放到一维数组a中,找出a中出现频率最高的元素值和出现的次数

.例如把1,5,4,3,5,8,5,3放到a,则出现频率最高元素值是5,次数是3

Answer 1

Private Sub Command1_Click()
Dim a(19) As Double
Dim b(19) As Double
Dim c(19) As Boolean
Dim t
Dim maxx As Double
For i = 0 To 19
t = InputBox("请输入第" & i + 1 & "个数：")
Do While Not IsNumeric(t)
t = InputBox("请输入第" & i + 1 & "个数：")
Loop
a(i) = t
Next i
For i = 0 To 19
t = a(i)
If c(i) = False Then
For j = i + 1 To 19
If t = a(j) Then b(i) = b(i) + 1: c(j) = True
Next j
End If
Next i
t = 0
For i = 0 To 19
If t < b(i) Then t = b(i): maxx = a(i)
Next i
MsgBox "出现最高的元素是：" & maxx & ",出现的次数为：" & t + 1
End Sub

Answer 2

Dim a(19) As Integer
Dim 元素值(19) As Integer
Dim 元素频率(19) As Integer
Dim 元素序号 As integer = 0
Dim 新元素 As Boolean
'假设a(19)已经完成了赋值
For i = 0 to 19
新元素 = True
'搜索a(i)是否在已保存的元素值中，如果在，则频率计数+1
For k = 0 to 元素序号
if 元素值(k) = a(i) Then
元素频率(k) +=1
新元素 = False
Exit For
End If
Next
'如果搜索不到，则将新元素添加到元素值列表，频率计数+1
If 新元素 = True Then
元素值(元素序号) = a(i)
元素频率(元素序号) +=1
元素序号+=1
End If
Next
'找到最大的元素值
Dim 最大值序号 As Integer
For n = 1 to 元素序号 -1
if 元素值(n) > 元素值(n-1) Then 最大值序号 = n
Next
'返回最大值和频率
Msgbox("最高元素值为" & Str(元素值(最大值序号)) & "出现次数为" & Str(元素频率(最大值序号)))

PS:VB6.0没有集合就是麻烦。。。
你的题目没有说明当两个值出现次数一样的情况怎么办，本程序默认取最先出现的值