怎么得到数组中相同的数并计算个数

如何得到数组中相同的数并计算个数
例如有个 长度个数不定的数值 如 a（）里边有 1，1，2，1，3，4，4，2，5，3，9，10 如何得到数组中有相同的数 并统计该数相同的个数 如得到

 1 相同个数为3 2相同个数为2 3相同个数为2 4 相同个数为 3 等等。。。。。

[解决办法]

VB code

Option ExplicitDim intA(0 To 9999) As IntegerPrivate Sub Command1_Click()    Dim intP As Integer    Dim intNumCount(1 To 10) As Integer '从1～10，统计相同个数    For intP = 0 To 9999        intNumCount(intA(intP)) = intNumCount(intA(intP)) + 1    Next intP        For intP = 1 To 10        Debug.Print CStr(intP) & "的个数是：" & CStr(intNumCount(intP))    Next intPEnd SubPrivate Sub Form_Load()    Dim intP As Integer    For intP = 0 To 9999        intA(intP) = CInt(Rnd * 9) + 1  '产生1～10的数据    Next intPEnd Sub