主题：[求助]如何取众数

'参考 字典
Dim ls() As String = "a,a,b,b,c,d,e".Split(",")
Dim dct As new Dictionary(of String,Integer)
For Each a As String  In ls
    If dct.ContainsKey(a) = False Then
         dct.Add(a,1)
    Else
           dct(a) = dct(a)+1
        output.show("是中暑: " & a)
    End If
Next