Sub db()
arr = Array(1, 1, 2, 2, 3)
Set d = CreateObject("Scripting.Dictionary")
For i = 0 To UBound(arr)
d(arr(i)) = d(arr(i)) + 1
Next
s = d.keys
s1 = d.items
MsgBox "不同数值的个=" & d.Count
For k = 0 To d.Count - 1
MsgBox "元素 " & s(k) & " 出现的个数= " & s1(k)
Next
End Sub