Private Sub CmdTJ_Click()

    Dim count(25) As Integer

    Dim ch, ch2 As String

    Dim m As Integer

    ch = Text1.Text

    For k = 1 To Len(ch)

        n =  Asc（ch2）-Asc(“a”)

        If n >= 0 And n <= 25 Then

            count(n) = count(n) + 1

            List1.AddItem "字母" + ch2 + "出现" + Str(count(n)) + "次"

        End If

    Next k

    m = count(0)

    For k = 1 To 25

        If  Then m = count(k)

    Next k

    Label1.Caption = "字母最高出现" + Str(m) + "次"

End Sub