VB textbox字符出现次数并排序

显示全部楼层 · 2010-5-9 00:27:56

新建一个vb窗体
加入两个textbox 分别是text1和text2
加入一个Command1
在text1中输入如下数据
王小虎李小冰林小明王小虎李小冰林小明
王小虎王小虎杨东
点击Command1时
text2对text1输入的字符进行判断出现次数并排序
text2内容如下显示
出现4次:王小虎
'换行
出现2次:李小冰林小明
'换行
出现1次:杨东
应该如何写代码呢.?
代码有错啊？验证结果:出现3次有:王小虎

出现2次有:李小冰

出现2次有:林小明

出现1次有:

出现1次有:

王小虎

出现1次有:杨东
为什么出现这样的结果？有哪位高手帮忙修改一下，

千问 · 2010-5-9 00:27:56

Private Type Na
Name As String
Num As IntegerEnd TypeDim Names() As NaPrivate Sub Command1_Click()
Dim i As Long
Dim j As Long
Dim n As Long
Dim TempStr As String
Dim TempName As String
Text1.Text = Trim(Text1.Text) '去除首位的空格
n = 1
Do While n <= Len(Tex