VB:任意输入一串字母,分别统计26个字母的个数
来源:百度知道 编辑:UC知道 时间:2024/05/16 16:06:37
Dim i As Integer
Dim n(26) As Integer
Dim s As String
s = Text1
For i = 1 To Asc("Z") - Asc("A") + 1
n(i) = Len(s) - Len(Replace(s, Chr(i + Asc("A") - 1), ""))
Print n(i)
Next
这是统计了大写字母的
如果还要统计小写字母
只需要把Asc("Z"),Asc("A")改成Asc("z"),Asc("a"),再统计一遍相加即可