vb如何统计一堆数字或者文字?

Question

例如文本框1内容为(multiline=true) 
12,17,19,22,23,29,30,34, 
02,10,15,19, 
03,05,17,30,40,42, 
13,18,24,36,38,42,20,31,45, 
02,05,15, 
07,16,18,31,36,41,11,14,39,46, 
01,06, 怎样统计次数?象这样. 出现0次 04,08,09,21,25,26,27,28,32,33,35,37,43,44,47,48,49, =17个 
出现1次 01,03,06,07,10,11,12,13,14,16,20,22,23,24,29,34,38,39,40,41,45,46, =22个 
出现2次 02,05,15,17,18,19,30,31,36,42, =10个.

Answer 1

使用双循环，写一写就行了。for i=1 to 99
  ''查找、统计函数
  ''显示过程
next i

Answer 2

'设文本框1内容为str
Sub Test(str as string)
    dim A() as string
    Arr=Split(str,",")    dim B(99) as integer
    dim i as integer
    for i=lbound(A) to ubound(A)
        B(int(A(i))=B(int(A(i))+1
    next i
    for i=0 to 99
        debug.print B(i)
    next i
end sub

Answer 3

可以运行，Arr改成A就行了，要学会调试程序。

Answer 4

m00ners(M00N) 不是已经给出答案了吗?楼下的几位也说了怎么修改这个问题了。