随便输入几个数字 然后统计出来
大概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