中科新闻网专利法 解释:用VB编写程序
来源：百度文库 编辑：中科新闻网 时间：2024/06/30 19:54:13
Private Sub Form_Click()
Dim d(6)
For i = 1 To 50
n = （！）
d(n) = d(n) + 1
Next i
For i = 1 To 6
Print i; "出现点数"; d(i); "次"
Next i
End Sub
在（1）出填空，用随机函数模拟至骰子，统计50次骰子出现个点的次数。
Dim d(6)
For i = 1 To 50
n = （！）
d(n) = d(n) + 1
Next i
For i = 1 To 6
Print i; "出现点数"; d(i); "次"
Next i
End Sub
在（1）出填空，用随机函数模拟至骰子，统计50次骰子出现个点的次数。
val(rnd*5+1)
为了生成某个范围内的随机整数，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。