主题：请教集合

大师：请问求集合或数组中的字符重复次数最多的那个值代码？

弄一个字典，存放元素以及其个数。

 

循环每一个集合，计算得到值，最后循环字典，读取元素和个数。

我要直接得到那个值，劳驾写一个函数给我！

Dim ary() = {1,2,3,1,1,1,2,3,1,1}
Dim dic As new Dictionary(of String, Integer)
Dim str As String = ""
Dim max As Integer = 0
For Each s As String In ary
    If dic.ContainsKey(s) = False Then
        dic.add(s, 1)
    Else
        dic(s) += 1
    End If
    If dic(s) > max Then
        str = s
        max = dic(s)
    End If
Next
msgbox(str & " " & max)

如果存在2个甚至更多个同样的最大值呢？

 

那你就循环dic字典后，得到你需要的值。