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

kylin兄这段代码的水平不是一般的高，初次接触代码，居然能这么利害，佩服佩服。

过奖了，偶然的，呵呵

能得到贺老师夸奖的人可不多啊,呵呵

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 个

很好了,呵呵,都值得我学习啊!

假如这个“aaa2bbbawwwbb22”是在表A第一列第一行，怎样在表A第二列第一行显示结果

还有，不用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 个

我交个白卷。

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