[填空题] 以下程序用随机函数模拟掷骰子,统计掷50次骰子出现各点的次数。阅读该程序,并在【8】和【9】处填上正确的内容。Private Sub Command1_ Click() Dim d(6)

13 查阅

[填空题] 以下程序用随机函数模拟掷骰子,统计掷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]把骰子点数作为数组下标,统计各点数出现的次数。

计算机考试