我使用阵例计算数量，范例请参阅附件
以下为程式码，红字代表修改或增加……

Private Sub Command1_Click()
On Error GoTo onerr
产生几个数值 (Int(Text1.Text))
onerr:
End Sub

Function 产生几个数值(b As Integer)
ReDim arr(b) As Integer

List1.Clear
For a = 1 To b
Randomize
乱数值 = Int((Rnd() * b) + 1)
List1.AddItem (乱数值)
arr(乱数值) = arr(乱数值) + 1
Next

List2.Clear
For a = 1 To b
List2.AddItem a & ":" & arr(a)
Next
End Function