用VB产生随机数如何保证产生的随机数各不相同

更新时间：2018-10-26 09:47:34 179次访问

比如随机产生4个0—7的整数，头一个写
a(1)=int(rnd()*8)，
那么后面的a(2)至a(4)该怎么写才能避免与另外三个重复

使用Randomize 语句，初始化随机数生成器。Randomize 语句示例本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数， 所以Randomize 用 Timer 函数的返回值作为新的随机数种子值。Dim MyValueRandomize ' 对随机数生成器做初始化的动作。MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值。