MyException - 我的异常网
当前位置:我的异常网» VB » 随意输入几个数字 然后统计出来

随意输入几个数字 然后统计出来

www.myexceptions.net  网友分享于:2013-04-10  浏览:4次
随便输入几个数字 然后统计出来
大概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

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有