杭州交通信息网3d机器人大战破解版:用VB编写程序
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 00:24:58
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 则是随机数范围的下限。