![[填空题] 以下程序用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数。阅读该程序，并在和处填上正确的内容。Private Sub Command1_ Click() Dim d(6) for](http://www.mshxw.com/aiimages/31/254956.png "[填空题] 以下程序用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数。阅读该程序，并在和处填上正确的内容。Private Sub Command1_ Click() Dim d(6) for")
[填空题] 以下程序用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数。阅读该程序，并在【8】和【9】处填上正确的内容。
Private Sub Command1_ Click()
Dim d(6)
for i = 1 To 50
n = 【8】
d(n) = 【9】
Next i
for i = 1 To 6
Print d(i)
Next i
End Sub
参考答案：
[8]Int(1+6* Rnd)[9]d(n)+1问题解析:
填空[8]由随机函数模拟掷骰子的点数，数值控制在1～6之间，填空[9]把骰子点数作为数组下标，统计各点数出现的次数。
