急！vb数组中找出现三次或三次以上的数据

比如说有一数组a(i)
a(0)=0
a(1)=1
a(2)=4
a(3)=55
a(4)=7
a(5)=6
a(6)=3
a(7)=5
a(8)=4
a(9)=33
a(10)=9
a(11)=3
a(12)=56
a(13)=66
a(14)=4
a(14)=33
a(15)=71
a(18)=23
a(19)=3
a(20)=51
a(21)=61
a(22)=33
a(23)=52
a(24)=41
......
还有很多数

如何生成一个txt文件，其中print:首行a（0）, 出现了三次或三次以上的数和末行a(n)？
如在1.txt中生成
0
4
3
4
33
3
4
33
3
33
41
在2.txt文件中生成
0,1,4
4,55,7,6,3
3,5,4
4,33
33,9,3
3,5 6, 66,4
4,33
33,71,23,3
3,51,61,33
33,52,41
即前一个三次或以上的数与后一个三次或三次以上的数夹着本来那一段的数为一行（有点表达不清，看写的例子好了）
万分感谢！
是要用计数器吗？
就是说像"4"就出现了三次，即a(2),a(8),a(14)
"3"也出现了三次，即a(6),a(11),a(19)
"33"也出现了三次，即a(9),a(14),a(22)
按顺序排下来，1.txt
就是
a(0)
a(2)
a(6)
a(8)
a(11)
a(14)
a(19)
a(22)
...
可以的

dim b(n) as integer,c(n) as integer,d(n) as integer,e(-1 to n) as integer,geshu as integer
sub jiejuewenti()''''''改成你的过程
for i=0 to n
for j=0 to i
if a(j)=a(i) then b(i)=b(i)+1
next j
next i

static k
for i=0 to n
if b(i)>=2 then
c(k)=a(i)
d(k)=i
k=k+1
end if
next i
print "总共有"&k&"个符合要求的数"'此处可以取出c（）的个数
geshu=k
k=0

open "1.txt" for output as #1
write #1,a(0)
for i=0 to k
write #1,c(k)
next i
write #1,a(n)
close #1

for i=0 to geshu-1
for j=d(i) to d(i+1)
e(i)=e(i)&","&a(j)
next j
next i
for j=0 to d(i)
e(-1)=e(-1)&","&a(j)
next j
for j=d(geshu) to n
e(geshu)=e(geshu)&","&a(j)
next j

open "2.txt" for output as #1
for i=-1 to geshu
write #1,e(i)
next i
close #1