随机数存在重复的问题

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编辑过]

wu8313

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

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

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






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

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

LucasLynn

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


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

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

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

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

不好意思，有一处笔误：

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

wuaza

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

小高

哦

stoner

[em01][em02]

XWQ2000

高

lingjiang

{:soso_e119:}