1.使用函数将字符串全部转换成大写或小写；
2.建立一个字符数组，对应26个字母；
3.建立一个整数型数组，对应26个字母出现的次数；
4.从字符串的一端至另一端取字符，每次一个，判断是那个字母，在对应的整数数组上加一.
VB妮可 - 首席运营官 的方法更为简单，受教了！
没用vb试,大约是这样:
dim tmp$,i&,lenstr&
tmp=lcase(text1)
lenstr=len(tmp)
for i=97 to 122
print chr(i) & "次数为:" & lenstr-len(replace(tmp,chr(i),""))
next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024