[填空题] 以下程序用随机函数模拟掷骰子,统计掷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 iEnd Sub
正确答案:[8]Int(1+6* Rnd)
参考解析:[9]d(n)+1 填空[8]由随机函数模拟掷骰子的点数,数值控制在1~6之间,填空[9]把骰子点数作为数组下标,统计各点数出现的次数。


![[填空题] 以下程序用随机函数模拟掷骰子,统计掷50次骰子出现各点的次数。阅读该程序,并在和处填上正确的内容。Private Sub Command1 [填空题] 以下程序用随机函数模拟掷骰子,统计掷50次骰子出现各点的次数。阅读该程序,并在和处填上正确的内容。Private Sub Command1](http://www.mshxw.com/aiimages/31/481552.png)
