230问答网 > 用随机函数模拟掷骰子（随机产生1至6之间的数），统计掷500次出现各点的次数。

用随机函数模拟掷骰子（随机产生1至6之间的数），统计掷500次出现各点的次数。

2024-12-29 15:23:22

推荐回答（2个）

回答1：

n=int((6*rnd)+1)
arr(n)=arr(n)+1
我对VB也不怎么熟。。
randomize肯定是随机数的初始化
rnd应该就是取随即数，好像就是随机去0~1之间的数
我也是以前大概看到的。。。

回答2：

VBS的随机数
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
产生lowerbound - upperbound 之间的随机数

For i = 1 To 500
n = Int((6 - 1 + 1) * Rnd + 1) '产生随机数
Arr(n) = Arr(n) + 1 ' 累计次数
Next i