举个例子,说下我的浅见思路:
str='编、程、论、坛、程、坛、坛'
arr=split(str,'、') '顿号分割成数组
for i=0 to ubound(arr)-1
for j=i+1 to ubound(arr)
k=1 '出现次数
if asc(arr(i))=asc(arr(j)) then
brr()=i
crr()=k+1 'ASC值相等即出现次数加1
else
brr()=i
crr()=k
end if
next
next
以上代码只是依据我自己的思路随便写的,没有测试过,你还需要去改进!