1.使用函数将字符串全部转换成大写或小写；
2.建立一个字符数组，对应26个字母；
3.建立一个整数型数组，对应26个字母出现的次数；
4.从字符串的一端至另一端取字符，每次一个，判断是那个字母，在对应的整数数组上加一.
VB妮可 - 首席运营官 的方法更为简单，受教了！
2.建立一个字符数组，对应26个字母；
3.建立一个整数型数组，对应26个字母出现的次数；
4.从字符串的一端至另一端取字符，每次一个，判断是那个字母，在对应的整数数组上加一.
VB妮可 - 首席运营官 的方法更为简单，受教了！
温馨提示：内容为网友见解，仅供参考
第1个回答 2008-04-08
没用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本回答被提问者采纳
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本回答被提问者采纳
相似回答
