随机数存在重复的问题

webgenius

生成随机8位数,位于1-49之间

可是不能保证8个数字没有重复的

这如何解决呢?谢谢!



Private Sub cmdspin_Click()
Randomize
Dim MyNumber(7) As Integer

MyNumber(0) = Int((49 * Rnd) + 1)
MyNumber(1) = Int((49 * Rnd) + 1)
MyNumber(2) = Int((49 * Rnd) + 1)
MyNumber(3) = Int((49 * Rnd) + 1)
MyNumber(4) = Int((49 * Rnd) + 1)
MyNumber(5) = Int((49 * Rnd) + 1)
MyNumber(6) = Int((49 * Rnd) + 1)
MyNumber(7) = Int((49 * Rnd) + 1)

num.Value = MyNumber(0) & "," & MyNumber(1) & "," & MyNumber(2) & "," & MyNumber(3) & "," & MyNumber(4) & "," & MyNumber(5) & "," & MyNumber(6) & "," & MyNumber(7)

End Sub

lingjiang

{:soso_e119:}

XWQ2000

高

stoner

[em01][em02]

小高

哦

wuaza

好经典的算法。不愧为专业程序员！

LucasLynn

以下是引用wu8313在2006-5-27 10:16:00的发言：


我按照 总斑竹 LucasLynn 在10楼给出的代码，运行一下，怎么发现了重复值？

关于这段代码的算法，还不明白，不知道 num 变量是否指 最终输出结果？

如果是的话，就发现了重复值，相关图片如下：

请总斑竹 林路先生再看看，当然也可能是我理解错了吧？

不好意思，有一处笔误：

    A(tmp) = A(49 - i)
    A(49 - i) = tmp2

wu8313

我按照 总斑竹 LucasLynn 在10楼给出的代码，运行一下，怎么发现了重复值？

关于这段代码的算法，还不明白，不知道 num 变量是否指 最终输出结果？

如果是的话，就发现了重复值，相关图片如下：






请总斑竹 林路先生再看看，当然也可能是我理解错了吧？

[此贴子已经被作者于2006-5-27 10:22:30编辑过]

tz-chf

Private Sub Command0_Click()
    Dim aa As Integer   '取值范围
    Dim bb As Integer   '取值个数
    Dim n As Integer
    Dim m As Integer
   
    Dim str As String
   
    Dim rst As New ADODB.Recordset
   
    aa = 49
    bb = 8
    n = 0
    m = 0
   
    Randomize
   
    rst.Open "表1", CurrentProject.Connection, , adLockOptimistic
   
    DoCmd.SetWarnings False
    DoCmd.RunSQL "delete * from 表1"
    DoCmd.SetWarnings True
   
    Do Until n = aa
        n = n + 1
        rst.AddNew
        rst(0) = n
        rst.Update
    Loop
   
    Do Until m = bb
        m = m + 1
        
        rst.MoveFirst
        
        n = Int((aa * Rnd) + 1)
        
        rst.Move n
              
        str = str & " " & rst(0)
        
        rst.Delete
        
        aa = aa - 1
        
    Loop
   
    MsgBox str
   
End Sub

[此贴子已经被作者于2006-5-27 10:02:13编辑过]

LucasLynn

算法描述：建立一个下标为1...N的数组A。

1、随机生成一个1...N之间的数X。

2、取数A(X)。

3、交换A(X)和A(N)

4、N=N-1

5、重复以上步骤。

Private Sub cmdspin_Click()
  Dim A(49) As Integer
  Dim i As Integer
  Dim tmp As Integer
  Dim tmp2 As Integer
  Dim num As String

  For i = 1 To 49
    A(i) = i
  Next i

  Randomize

  For i = 0 To 7
    tmp = Int(((49 - i) * Rnd) + 1)

    tmp2 = A(tmp)
    A(tmp) = A(49 - i)
    A(49 - i) = tmp2

    num = num & tmp2 & ","
  Next i

End Sub

以上代码可用于任意N个数中取M个数。

[此贴子已经被作者于2006-5-27 13:18:32编辑过]