随便输入几个数字 然后统计出来
大概20个数字 从1-20
然后我随便乱输入几个数字，每个数字用逗号隔开
然后统计出上面几个数字几个重复的 几个不重复

比如 我输入 01，03，19，03，02
然后下面就统计出
出现1次的有 01，02，19
出现2次的有03
一次都没有出现的4.5.6。。。（除上面几个数字外，1-20里面没有出现的都例举出来）

老师们给个思路啊怎么来呢

我用For i = 0 To 20
s = s & i & "出现了：" & Len(Text1) - Len(Replace(Text1, i, "")) & "次" & vbCrLf
Next
这样不行
只能枚举0-9的数 只能for i=0 to 9 就行
超过9就不行 比如13 它就会以为是一个1 一个3

求老师指教指教
[解决办法]
1 ListBox 中的数字是已经统计排序的情况。

2 在立即窗口中可以看到 Debug.Print 输出。

如果希望在 ListBox 中看到结果，可以将原来 Debug 打印代码换成：

For i = 0 To List1.ListCount - 1
    List1.List(i) = List1.List(i) & vbTab & List1.ItemData(i)
Next i