2. 计算机
  3. 以下程序用随机函数模拟掷骰子，统计掷50次骰子出现各点的次数。阅读该程序，并在【 】和【 】处填上正确的内容。 Private Sub Command1_ Click() Dim d(6) for i = 1 To 50 n =【 】 d(n) =【

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

admin2013-01-23  55
问题 以下程序用随机函数模拟掷骰子，统计掷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]把骰子点数作为数组下标，统计各点数出现的次数。
转载请注明原文地址:https://www.kaotiyun.com/show/UShp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)