此程式是產生從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