[求助]在线等高手帮忙编个数字统计软件

Question

我现在每天有几十甚至上百个邮编需要归类统计出每个邮编出现的次数！请问有没有高手能帮我做一个小软件啊！
邮编如下：
呼和浩特010、011
包头014
乌海016
鄂尔多斯017
阿盟735、737、750
海拉尔021、022、023、162、165
通辽028、029
赤峰024、025
乌兰浩特137
乌兰察布012、013
锡盟026、027
临河015
我现在想做一个能够统计这些邮编出现次数的软件！因为每天做都要手工计算这些邮编的出现次数，比较麻烦，希望高手 能帮我排忧解难！
补充一下，做的是几十个输入框，然后有几个按钮，一个显示框！
本人在线等啊！如果高手嫌麻烦不想做的话，给我一个循环的程序就可以了！

Answer 1

数据库里 就用   select 邮编，count() as 次数 from 表 group by 邮编 

Answer 2

哎 把你的邮编文件写入一个文本文件 一行一个邮编 读取文本文件 Dim a(12) As Integer
Dim i As Integer
For i = 1 To 12
    a(i) = 0
Next
    Open "d:\aa.txt" For Input As #1   ' 打开配置文件。
        Do While Not EOF(1)
            Line Input #1, textline
            Select Case Right(Trim(textline & " "), 3)
                Case "010"
                    a(1) = a(1) + 1
                Case "011"
                    a(2) = a(2) + 1
                Case "012"
                    a(3) = a(3) + 1
               有多少种写多少行
            End Select
        Loop
    Close #1
For i = 1 To 12
    MsgBox i & a(i)
Next

Answer 3

错误肯定有 你自己去找把 
比如   textline没有定义 不自己找错误怎能有提高呢？

Answer 4

                Case "010" ,"011"
                    a(1) = a(1) + 1 
                Case "014" 
                    a(2) = a(2) + 1 
                Case "016" 
                    a(3) = a(3) + 1 
                Case "017" 
                    a(4) = a(4) + 1 
                Case "735" ,"737","750"
                    a(5) = a(5) + 1 
                .......

Answer 5

Dim a(12) As Integer 
Dim i As Integer 
For i = 1 To 12 
    a(i) = 0 
Next 一句Dim a(1 to 12) As Integer 即可，效果完全一样

Answer 6

如果只是统计就不要编程了，直接在excel里搞吧。