VB字符个数统计

Private Sub Command1_Click()
Dim cs(11)
Text2 = ""

s = Split(Text1, ",")
a = Split("子,丑,寅,卯,辰,巳,午,未,申,酉,戌,亥", ",")
For i = 0 To 11
For j = 0 To UBound(s)
If a(i) = s(j) Then cs(i) = cs(i) + 1
Next j
Next i
zj = cs(0)
For i = 1 To 11
If cs(i) > zj Then zj = cs(i)
Next i
For i = 0 To zj
For j = 0 To 11
If cs(j) = i Then zz = zz & a(j)
Next j
if zz<> "" then Text2 = Text2 & "出现" & i & "次： " & zz & vbcrlf
zz=""
Next i
End Sub

记住把text2的mutiline设置成true