如何产生不重复随机数
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/18 12:44:56
&wnUrQFkpd$[ty\6VA]ήJV3b0oٍ̪nɺm /W*lϏKe^UR\"~wKq[+s[霙Y Z
如何产生不重复随机数
如何产生不重复随机数
如何产生不重复随机数
首先需要使用:Randomize[number] 语句,初始化随机数生成器.
如果忽略了数值参数number,Randomize自动使用Timer函数的返回值作为新的随机数种子值.然后需要使用Rnd[(number)]函数,生成小于 1 但大于或等于 0 的随机值.
为了生成某个范围内的随机整数,可使用以下公式:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里,upperbound 是随机数范围的上限,而 lowerbound 则是随机数范围的下限.
例子:Dim MyValue
Randomize ' 对随机数生成器做初始化.
MyValue = Int((6 * Rnd) + 1) '生成 1 到 6 之间的随机数值.
注意:Rnd函数中的参数number决定了生成随机数的方式.若想得到重复的随机数序列,可以不使用Randomize语句,使用负参数值的Rnd函数即.若想得到不重复的随机数序列,必须使用Randomize语句,而且Rnd函数的参数可以大于0或等于0或者省略,或者与Randomize语句中的number相同.
实际上,你的程序已经是产生非重复的随机数序列了,只不过下面的代码有点问题:
If blnseeded = False ThenRandomizeblnseeded = TrueEnd Ifblnseeded是个未声明的Variant的局部变量,程序每次调用这个函数时,始终满足等于false的条件,所以Randomize始终得到执行,加之你使用了无参的Rnd函数,所以产生的已经是随机数序列了.