下面程序段是统计字符串中各个字符个数的例子，上机试试看吧
Private Sub Command1_Click()
    Dim A(1 To 26) As Integer
    Dim T As String
    Dim C As String * 1
    Dim L As Integer
    Dim i As Integer
    Dim j As Integer
    T = InputBox("输入一个英文的字符串：")
    L = Len(T)
    For i = 1 To L
        C = UCase(Mid(T, i, 1))
        If C >= "A" And C <= "Z" Then
            j = Asc(C) - 65 + 1
            A(j) = A(j) + 1
        End If
    Next
    For i = 1 To 26
        If A(i) > 0 Then Print " "; Chr(i + 64); "="; A(i)
    Next
End Sub