填空题以下程序用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数。阅读该程序，并在【8】和【9】处填上正确的内容。 Private Sub Command1_ Click() Dim d(6) for i = 1 To 50 n ={{U}} 【8】 {{/U}} d(n) ={{U}} 【9】 {{/U}} Next i for i = 1 To 6 Print d(i) Next i End Sub

1、

【正确答案】 1、[8]Int(1+6* Rnd)

【答案解析】[9]d(n)+1 [解析] 填空[8]由随机函数模拟掷骰子的点数，数值控制在1～6之间，填空[9]把骰子点数作为数组下标，统计各点数出现的次数。