A-A+
以下程序用随机函数模拟掷骰子 统计掷50次骰子出现各点的次数。阅读该程序 并在【 】和【 】
问题详情
以下程序用随机函数模拟掷骰子,统计掷50次骰子出现各点的次数。阅读该程序,并在【 】和【 】处填上正确的内容。 Private Sub Command1_ Click() Dim d(6) for i = 1 To 50 n =【 】 d(n) =【 】 Next i for i = 1 To 6 Print d(i) Next i End Sub
请帮忙给出正确答案和分析,谢谢!
参考答案
正确答案:Int(1+6* Rnd)d(n)+1
填空[8]由随机函数模拟掷骰子的点数,数值控制在1~6之间,填空[9]把骰子点数作为数组下标,统计各点数出现的次数。