Question

用随机函数模拟掷骰子（随机产生1至6之间的数），统计掷500次出现各点的次数。

Private Sub Form_Click()
Dim Arr(6)
Randomize (Timer)
For i = 1 To 500
n = _________
Arr(n) =__________
Next i
For i = 1 To 6
Print Arr(i)
Next i
End Sub
不知道VB的随机函数怎么写，上网查了也不准确，那个大侠有时间帮我把这两个空填上。最好帮我解释下上面的 Randomize (Timer)什么意思，呵呵，没接触过VB。

Answer 1

n=int((6*rnd)+1)
arr(n)=arr(n)+1
我对VB也不怎么熟。。
randomize肯定是随机数的初始化
rnd应该就是取随即数，好像就是随机去0~1之间的数
我也是以前大概看到的。。。

Answer 2

VBS的随机数
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
产生lowerbound - upperbound 之间的随机数

For i = 1 To 500
n = Int((6 - 1 + 1) * Rnd + 1) '产生随机数
Arr(n) = Arr(n) + 1 ' 累计次数
Next i