主题：怎样取得字符串中 相同字符的个数

aaa2bbbawwwbb22 
a 4个
2 3个
b 5个
w 3个

我只能找到第一个字符的个数
dim gs as string ="aaa2bbbawwwbb22 "
dim gs1 as string =""
dim n as integer
for i as integer = 0 to gs.length -1
for ii as integer =gs.length -1 to 0 step -1
if gs(i) = gs(ii) then
gs1 = gs1 & gs(i)
n = gs1.length
end if
next
output.show(n)  '显示结果 4
exit for
next

第一次的测试啊～   对我来说太复杂了，～ 能给思路就好了

今晚要去打球了，明儿再试了～ 谢谢don老师。

kylin 老师的代码真的很经典，得好好地慢慢地理解啊～ 

模仿kylin老师的，也算交个作业：（今天税务审计一天刚来不久）感觉没有kylin老师的清晰。。。
dim gs as string ="aaa2bbbawwwbb22"
dim gs1 as string 
dim g as string
dim n1 as integer = gs.length
dim n as integer 
Do While gs.length>0
g = gs(0)
gs = gs.replace(gs(0),"")
gs1 = g & " 共有  " & n1-gs.length
n1 = gs.length
output.show(gs1 & " 个 ")
loop    
 
显示结果：
a 共有  4 个
2 共有  3 个
b 共有  5 个
w 共有  3 个

还有，不用do while...... loop 的，全自己的（原来少了if .... end if  虽然可以有正确结果，但同时也会提示错误，琢磨很久才搞定， 当作自己完成狐爸布置的作业了。。。（怎么2楼布置的作业也没有其他狐友交上来呢？）

dim g as string ="aaa2bbbawwwbb22"
dim gs as string
for ig as integer = 0 to g.length -1
dim gs1 as string = g.length
if g >"" and ig > 0
gs =  g(0)
g = g.replace(g(0),"")
output.show(gs & "  共有  " & gs1- g.length & " 个 ")
end if
next
显示结果：
a  共有  4 个
2  共有  3 个
b  共有  5 个
w  共有  3 个

你是老师级别的，不属于学生辈的 呵呵～