随机数存在重复的问题

tz-chf

以下是引用webgenius在2006-5-26 17:35:00的发言：


是用IF写吗?

如果这样的话

那第8个数岂不是要和前7个都要比?

没错！

或者：

先生成一张表，48个数字填上，

***在记录总数里生成一个随机数，做为记录位置，记下这个数，删除这个记录，

再下一次操作（回到***号处，共做8次）

这样不会出现重复数，不必比较

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