VB textbox中字符判断出现次数并按多至少排列

VB textbox中字符判断出现次数并按多至少排列

新建一个vb窗体

加入两个textbox 分别是text1和text2

加入一个Command1

如果在text1中输入如下数据

王小虎 李小冰 林小明 王小虎 李小冰 林小明 

王小虎 王小虎 杨东

点击Command1时

text2对text1输入的字符进行判断出现次数并按多至少排列
text2内容如下显示

出现4次:王小虎        '换行
出现2次:李小冰 林小明      '换行
出现1次:杨东


应该如何写代码呢.?

---

将文本读入一个字符串，用split函数会返回一个字符串数组，这样就把名字分开了。然后用Dictionary对象以名字做为键，次数做为值就可以很方便的统计出每个姓名出现的次数

---

可以麻烦提供下代码让我学习下吗?

---

Text1放入原文
VB code:

Private Sub Command1_Click()
Dim StrSS$, s$(), i&, j&, n&, Pass%, StrS$
ReDim ss$(1, 0)
StrSS = Replace(Form1.Text1.Text, vbCrLf, Space(1))
s = Split(StrSS, Space(1))
For i = 0 To UBound(s)
Pass = 0
If Trim(s(i)) <> "" Then
For j = 0 To UBound(ss, 2)
If ss(0, j) = Trim(s(i)) Then Pass = 1: ss(1, j) = Val(ss(1, j)) + 1: Exit For
Next j
If Pass = 0 Then
ReDim Preserve ss(1, n)
ss(0, n) = Trim(s(i)): ss(1, n) = 1: n = n