關(guān)于隨機(jī)產(chǎn)生不重復(fù)數(shù)

chuang0321

前天，同事要我?guī)兔ψ鲆粋�(gè)舒爾特方格的測試軟件，我答應(yīng)了。
在該軟件中需要生成1-25以內(nèi)的隨機(jī)不重復(fù)數(shù)。根據(jù)網(wǎng)上搜尋的結(jié)果，我利用rud()函數(shù)。
可是，不知道什么問題，有些時(shí)候還是會(huì)生成重復(fù)數(shù)據(jù)。所以我只好利用了笨方法重新生成隨機(jī)數(shù)據(jù)。

壇子里面的高手，能否幫我看看問題在什么地方。如果能夠解決生成重復(fù)數(shù)問題，我這個(gè)程序就可以大大簡化了。

方漠

見附件,新加了一個(gè)按鈕,和你原來的代碼沒有多大聯(lián)系,不過還是要用到那個(gè)TABLE.
另外,我的算法越往后越費(fèi)時(shí), 即25個(gè)只剩1個(gè)未選中時(shí), 需求隨機(jī)直至那個(gè)選中為止. 你可以自己優(yōu)化一下,只填20個(gè)文本框,后面的5個(gè)數(shù)按順序填入剩下的5個(gè)文本框就行.

方漠

自己測了一下,汗,18秒,中等水平.

chuang0321

謝謝方漠版主，使用“Me.Controls("Text" & I) ”后代碼少多了（我一直再找這個(gè)代碼寫法）。
我曾有一個(gè)想法，就是每提取一次數(shù)據(jù)，就產(chǎn)生一個(gè)查詢，查詢沒有被使用的數(shù)字后生成帶自動(dòng)編號(hào)的表，然后再在此表中隨機(jī)提取一個(gè)數(shù)，如此類推。這樣一來，就肯定不會(huì)出現(xiàn)重復(fù)數(shù)的問題了。但是，我沒有解決查詢后增加自動(dòng)編號(hào)字段的問題。

fan0217

如何產(chǎn)生不重復(fù)的隨機(jī)數(shù)？
先創(chuàng)建個(gè)類模塊：Random

類模塊代碼如下：

1. 
   
2. Dim c As Collection
   
3. '初始化，定義產(chǎn)生隨機(jī)數(shù)的最小值和最大值
   
4. Public Sub Init(min As Integer, max As Integer)
   
5. Set c = New Collection
   
6. Dim i As Integer
   
7.     For i = min To max
   
8.         c.Add i
   
9.     Next
   
10. End Sub
    
11. '產(chǎn)生不重復(fù)的隨機(jī)數(shù)
    
12. Public Function RandomNext() As Integer
    
13. Dim i As Integer
    
14. Dim number As Integer, upperbound As Integer
    
15.     upperbound = c.Count
    
16.     If upperbound > 0 Then
    
17.         number = Int((upperbound) * Rnd + 1)
    
18.         RandomNext = CInt(c.Item(number))
    
19.         c.Remove (number)
    
20.     Else
    
21.         RandomNext = 0
    
22.     End If
    
23. End Function
    
24. Private Sub Class_Terminate()
    
25.     Set c = Nothing
    
26. End Sub
    

復(fù)制代碼

測試：

1. 
   
2. Dim r As New Random
   
3.   
   
4. Sub Test() '請先運(yùn)行Init
   
5. Dim i As Integer
   
6.     For i = 0 To 10
   
7.        Debug.Print r.RandomNext
   
8.     Next
   
9. End Sub
   
10. Sub Init()
    
11.     r.Init 1, 100
    
12. End Sub
    

復(fù)制代碼