Question

在文本框text1中输入一个字符串,单击"统计"按钮,统计其中ABCD……G出现的次数。并按次数从高到低排序

，输出在text2中

Answer 1

方法有许多种，给你一个字典的用法，比较方便一些！

代码如下，详细可下载附件测试！

Private Sub Command1_Click()
    Dim dc As Object, s As String, iMax As Integer, n As Integer
    Set dc = CreateObject("Scripting.dictionary")
    
    Dim i As Integer
    For i = 1 To Len(Text1.Text)
        s = Mid(Text1.Text, i, 1)
        If Not dc.Exists(s) Then
            dc(s) = 1
        Else
            dc(s) = Val(dc(s)) + 1
            If iMax < Val(dc(s)) Then iMax = Val(dc(s))
        End If
    Next
    
    s = ""
    Dim ar
    ar = dc.keys
    For i = iMax To 1 Step -1
        For n = 0 To UBound(ar)
            If dc(ar(n)) = i Then s = s & ar(n) & "(" & i & ")"
        Next
    Next
    
    Text2.Text = s
End Sub