有什么代码可对关键字进行统计

举个例子，说下我的浅见思路：
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
以上代码只是依据我自己的思路随便写的，没有测试过，你还需要去改进！