vb 统计一个字符串中每种字符出现的频次

呵呵..楼上的没有针对性..我这个可以统计各种字符,只要出现过,包括中文和符号呵..

Private Sub Command1_Click()
Dim a$, j%, s$
a = Text1
Print "字符串一共有"; Len(a); "个字符!!"
Do While Len(a) > 0
j = Len(a)
s = Mid(a, 1, 1)
a = Replace(a, s, "")
Print s; "出现了: "; j - Len(a); "次"
Loop
End Sub

Dim a(0 To 35)
Private Sub Command1_Click()
For i = 0 To Len(Text1.Text) - 1
tmp = Mid(LCase(Text1.Text), i + 1, 1)
If (tmp >= "0" And tmp <= "9") Then
a(Asc(tmp) - Asc("0")) = a(Asc(tmp) - Asc("0")) + 1
ElseIf tmp >= "a" And tmp <= "z" Then
a(Asc(tmp) - Asc("a") + 10) = a(Asc(tmp) - Asc("a") + 10) + 1
End If
Next i
For i = 0 To 35
If i <= 9 Then
Debug.Print Chr(i + Asc("0")) & ":" & a(i)
Else
Debug.Print Chr(i + Asc("a") - 10) & &q