VBA编程产生不重复随机数

autumnalRain

作者：iamlasong      http://blog.csdn.net/iamlaosong/article/details/38434179

VBA编程实现不重复随机数输出。VBA里的随机函数是RND，在工作表中随机函数是RAND，一字之差，可要记好了。RND取值范围是[0,1)，意思是0和1之间的一个随机数，包含0，但不包含1。

1、用法

语法：Rnd[(number)]

　　如果 number 的值是 Randomize 生成

　　小于 0 ，每次都使用 number 作为随机数种子得到的相同结果。

　　大于 0 ，以上一个随机数为种子产生下一个随机数。

　　等于 0 ，产生与最近生成的随机数相同的随机数。

　　省略，以上一个随机数为种子产生下一个随机数。

说明：

　　Rnd 函数返回小于 1 但大于或等于 0 的值。

　　number 的值决定了 Rnd 生成随机数的方式。

　　对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。

　　在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器（若带参数，则产生由参数对应的一个特定序列的随机数），该生成器具有根据系统计时器得到的种子。

　　为了生成某个范围内的随机整数，可使用以下公式：

　　Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

　　这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

　　注意：若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。

autumnalRain

1、无重复随机数算法一

这是最简单的算法，每产生一个随机数，就和已有的比较，如果已经存在，则重新产生。比较适合从一个大范围里面抽出一小部分数据，比如，从题库中抽取试题。

Public SubRndNumberNoRepeat1()

    Dim RndNumber, temp(20), i, k, Maxrec AsInteger

    Randomize (Timer)           '初始化随机数生成器

    Maxrec = 100      ' 从A21开始输出随机数

    k = 0

     Do While k < 20

        RndNumber = Int(Maxrec * Rnd) + 1

        temp(k) = RndNumber

        Cells(k + 21, 1) = RndNumber

        For i = 0 To k - 1

            If temp(i) = RndNumber Then ExitFor

        Next i

            If i = k Then k = i + 1 'MsgBox"随机数：" & RndNumber

    Loop

End Sub

2、无重复随机数算法二

这个算法比较巧妙，需要细细体会，才能知道真谛。这个算法不会重复产生随机数，但需要一个占位数组。比较适合输出范围之内所有数值的场合，比如，随机发牌。

SubRndNumberNoRepeat2()

    Dim RndNumber, TempArray(99), i As Integer

    Randomize (Timer)           '初始化随机数生成器

    For i = 0 To 99            '产生包含1－100的不重复的随机数列

        TempArray(i) = i

    Next i

    For i = 99 To 80 Step -1

        RndNumber = Int(i * Rnd)

       Cells(120 - i, 1) = TempArray(RndNumber) + 1 '从A21开始输出这些数字

        TempArray(RndNumber) = TempArray(i)

    Next i

End Sub

3、无重复随机数算法三

这个算法使用字典对象完成去重复，和第一个算法差不多，但程序看上去简洁一点，嗯，起码新颖一点。

SubRndNumberNoRepeat3()

    Dim d As Object   'New Dictionary

    Dim s As Integer

    Randomize (Timer)           '初始化随机数生成器

    Set d= CreateObject("Scripting.Dictionary")

    Do Until d.Count = 20

        s = Int(Rnd * 100 + 1)

        d(s) = ""

    Loop

    [a21].Resize(d.Count, 1) =Application.Transpose(d.Keys)

End Sub

leasunpop

谢谢分享！！！！！！！！！！！！

ZWBZLJ

leasunpop 发表于 2017-10-26 23:56
谢谢分享！！！！！！！！！！！！

只生成单数、或双数随机数，应该怎样修改程序？

swzr79

学习了，正在学习vba

gwjkkkkk

不错，学习了。