统计文本框中26个英文字母出现的次数 不区分大小写

[vb]代码库

Private Sub Command1_Click()
Dim a(1 To 26) As Integer, c$
For i = 1 To Len(Text1.Text)
    c = UCase(Mid(Text1.Text, i, 1))
    If c >= "A" And c <= "Z" Then
        a(Asc(c) - 64) = a(Asc(c) - 64) + 1
    End If
Next i
Cls
For i = 1 To 26
 Label1.Caption = Label1.Caption & Chr(i + 64) & "=" & a(i) & " "
Next i
End Sub