随机数模拟掷子的一个问题

Question

随机模拟投掷子,统计60次出现各点的次数.编程如下:Private Sub Command1_Click()
Dim d(6)
For i = 1 To 60
n = Int(1 + 6 * Rnd)
d(n) = d(n) + 1
Next i
For i = 1 To 6
Print d(i)
Next i
End Sub
我在运行的时候老是得不到我所想要的6以内的任意数,请大家帮下忙,帮我找找,我哪句错了.我自己改了下那段:"d(n)=d(n)+i"相差反而更大,出现三位数了.

Answer 1

Private Sub Command1_Click()
Randomize
Dim d(1 to 6)
For i = 1 To 60
n = Int(1 + 6 * Rnd)
d(n) = d(n)+1
Next i
For i = 1 To 6
Print d(i)
Next i
End Sub
-------------------------------------------
要加上Randomize语句！

Answer 2

Private Sub Command1_Click()
Dim d(1 To 6), n As Integer
For i = 1 To 60
Randomize
n = Int(6 * Rnd + 1)
d(n) = d(n) + 1
Next
Print Join(d, vbCrLf)
End Sub