vb 中去重复最多的值 如何实现?很菜的问题 学友们帮个忙啊

来源：百度知道 编辑：UC知道 时间：2024/06/06 09:48:24
vb 中取出数组中重复次数最多的值

Dim aa As String() = {3, 3, 3, 2, 2}
Dim bb As String = ""
For i = 0 To UBound(aa)
For j = 0 To UBound(aa)
If j <> i And aa(i) = aa(j) Then
bb = aa(i)'这里不知道如何去判断哪组重复的多
End If
Next j
Next i
MsgBox(bb)

我上面的代码还要添加一个判断去检验哪个重复的多 大哥们帮忙下啊 调试半天了 急啊 在线等啊...

建立一个数组A(2 to 3)，
For i = 0 To UBound(aa)
如果aa(i)="3" then A(3)=A(3)+1
如果aa(i)="2" then A(2)=A(2)+1
最后判断A(3)和A(2)哪个大，哪个就是重复最大的。
如果元素更多，就相应更改数组A的下标就行。很容易的。