VB程序,输入一串字符,统计其中的各个英文字符的个数(不分大小写)?

输入的字符不分大小写,数字.

Private Sub Form_Click()
Dim char As String * 1, n%
Dim letter(1 To 26) As Integer
For i = 1 To Len(Text1)
char = LCase(Mid(Text1, i, 1))
If char >= "a" And char <= "z" Then
n = Asc(char) - Asc("a") + 1
letter(n) = letter(n) + 1
End If
Next i
For i = 1 To 26
If letter(i) <> 0 Then
Text1 = Text1 & "含有" & Chr(Asc("a") + i - 1) & "字母" & letter(i) & "个; "
End If
Next i
End Sub
'这是我写的代码,不明白的地方提出来哟!~ ^_^b

private sub form_click() dim char as string * 1, n% dim letter(1 to 26) as integer for i = 1 to len(text1) char = lcase(mid(text1, i, 1)) if char >= "a" and char <= "z" then n = asc(char) - asc("a") + 1 letter(n) = letter(n) + 1 end if next i for i = 1 to 26 if letter(i) <> 0 then text1 = text1 & "含有" & chr(asc("a") + i - 1) & "字母" & letter(i) & "个; " end if next i end sub