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 |