此程式是产生从1~我所输入内的值 和 出现我所输入值的组数~~
我该如何知道在1~我所输入的值,出现相同的值,有几个,要如何写?
来请教大大~~~

P ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

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

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