VB生成不重復(fù)的隨機(jī)數(shù)

1、VB 生成不重復(fù)的隨機(jī)數(shù)VB生成不重復(fù)的隨機(jī)數(shù)我的建議是：第一步、先做一個數(shù)組，存上這 35 個數(shù)(可以不是連續(xù)的數(shù)，也 可以是人名、字符串什么的) ；第二步、隨機(jī)生成一個 1-35之間的數(shù)，輸出；第 三步：把這個數(shù)和數(shù)組的第一個單元交換；第四步、從數(shù)組的第 2-35 之間隨機(jī) 抽取第二個數(shù)， 輸出；第五步、把這隨機(jī)抽取的第二個數(shù)和數(shù)組的第二個單元內(nèi) 容呼喚；第六步、隨機(jī)抽取第三個數(shù)，輸出。 。重復(fù)到從第 35-35 個數(shù)之間隨 機(jī)抽取一個數(shù)，這時直接輸出最后一個就行了。程序如下( VB6)：工程里默認(rèn)的窗體上，畫一個 Commandl,粘貼程序：option explicitprivate

2、vArray(1 to 35) as currency &#39定; 義數(shù)組個數(shù)private sub command1_click()testend subprivate sub InitArray()dim i as long'給數(shù)組賦值 for i=1 to 35 varray(i)=i next i end sub private sub Test() dim iStart as long dim iPos as long dim vTemp as currency dim sReturn as stringInitArray randomize timer&a

3、mp;#39;設(shè)置隨機(jī)因子，使其每次運行程序的隨機(jī)數(shù)都不一樣iStart=1 do iPos=int(rnd*(ubound(vArray)-iStart+1)+iStart '產(chǎn)生 iStart 到 35(35取自 vArray 的上標(biāo))之間的整數(shù)sReturn=sReturn & vArray(iPos) & vbcrlf &#39輸; 出 '交換單元內(nèi)容vTemp=vArray(iStart) vArray(iStart)=vArray(iPos) vArray(iPos)=vTempiStart=iStart+1

4、'下次隨機(jī)生成時，少生成一個if iStart>=ubound(vArray) then '最后一個了，直接輸出sReturn=sReturn & vArray(ubound(vArray)Exit Doend ifif iStart>7 then exit do ' 如果需要生成幾個數(shù)， 就把 7 改成幾， 大于數(shù)組元 素的個數(shù)，將輸出速度的元素個數(shù) (這個例子是 35)Loopmsgbox sRetur n 'msgbox 輸出結(jié)果end sub'='

5、方法二Private Sub Command1_Click()Dim a(35) As IntegerFor i = 0 To 35way1:Randomizea(i) = Int(Rnd() * 36) + 1If i > 1 ThenFor p = 0 To i - 1If a(p) = a(i) Then ' 與前面的對比，如果有重復(fù)，重新隨機(jī)GoTo way1End IfNext p3End IfPrint a(i);'打印Next iPrint ""'打印End Sub'

6、='方法三如果樓主是要產(chǎn)生 0-9 等 10 個不重復(fù)的隨機(jī)數(shù)的話，在隨機(jī)數(shù)范圍和個數(shù)相等 的情況下， 樓上的方法都無異于散彈打鳥。 在最不利情況下時間將無限延長， 特 別是對更多隨機(jī)數(shù)的時候。以下提供兩種思路：1.實際上我們只要確定了其中 9個數(shù)字那么第 10 個數(shù)字根本不用去想；確定 8 個，那么隨機(jī)只在 2 個數(shù)之間，以此類推，使用 動態(tài)數(shù)組如a(),先用for將10個數(shù)字加入，然后開始rnd*ubound(a)取得其中一 個，放入數(shù)組b，再將該數(shù)字從a數(shù)組中剔除。速度：(n+nA2)/22.只需要得到 10 個無序排列的數(shù)字即可，沒必要去一直產(chǎn)生隨機(jī)數(shù)，只要打亂 順序即

7、可。在數(shù)組 a 中加入 10 個數(shù)字，然后開始 for 循環(huán) 10 次，每次產(chǎn)生一個 10 以內(nèi)的隨機(jī)數(shù)，然后將循環(huán)次數(shù) i 與隨機(jī)數(shù)的位置互換。速度： n'方法四關(guān)于隨機(jī)數(shù)的不重復(fù)求取Option Base 1Private Sub Command1_Click()Randomize TimerDim A(1 To 10) As Integer '數(shù)組 MDim B(1 To 8) As String'數(shù)組 NDim i As Integer, k As Integer, t As IntegerFor i = 1 To 10A(i) = iN

8、extFor i = 1 To 10' 數(shù)組打亂t = A(i)k = Fix(Rnd * 10) + 1A(i) = A(k)A(k) = tNextFor i = 1 To 8 &#39從; M 中隨機(jī)取出 N 個數(shù) ,不重復(fù)B(i) = A(i)NextLabel1.Caption = Join(B(), " , ")End Sub'方法五= Private Sub Command2_Click()Randomize TimerDim Dimension(8)Dim i As Byte, j As ByteRan

9、domize TimerFor i = 1 To 8Dimension(i) = Fix(Rnd * 10) + 1Next iA:For i = 1 To 7For j = i + 1 To 8If Dimension(i) = Dimension(j) ThenDimension(i) = Fix(Rnd * 10) + 1GoTo AEnd IfNext jNext iLabel1.Caption = Join(Dimension(), " , ")End SubPrivate Sub Command3_Click()EndEnd Sub&#3

10、9;= '方法六：(最快)還有種方法是隨機(jī)取數(shù)組中一個數(shù) ,取出后將該元素與數(shù)組最后一個元素交換 ,然 后隨機(jī)上限減一然后就是字符串的速度了一次分配足夠大的字符串，而不是用&連接字符 串會快很多Option ExplicitPrivate Declare Function timeGetTime Lib "winmm.dll" () As LongPrivate Const MAX_N = 10000 - 1 &#3在 1(MAX_N+1的數(shù)字中取Private Sub Command1_Click()Dim Ary(

11、MAX_N) As LongDim i&, n&, p&, t&, ps&Dim s$, sTemp$ t = timeGetTime'初始化For i = 0 To MAX_NAry(i) = i + 1NextRandomize''計算并為s分配足夠的大小，下面是當(dāng)n=MAX_N+1時最終的s的長度的精確值'i = MAX_N + 1: p = 0: ps = 9'Do Until i <= 9'p =

12、 p + 1'n = n + ps * p'ps = ps * 10'i = i 10'Loop'n = n + (p + 1) * (MAX_N - CLn g(10 A p) + 2) + MAX_N's = String$(n, ",")n = MAX_N 2 '要取的個數(shù) ,取所有的話用 MAX_N+1'計算并為 s 分配足夠的大小1), ",") '分String$(n

13、* Len(CStr(MAX_N + 配足夠大的內(nèi)存 ,以后再減 p = 0: ps = 1Do Until p >= n i = CLng(Rnd * (MAX_N - p) sTemp = CStr(Ary(i)Mid$(s, ps, Len(sTemp) = sTemp ps = ps + Len(sTemp) + 1Ary(i) = Ary(MAX_N - p) &#39如; 果不想破壞數(shù)據(jù) ,把這里改成 2個元素交換 ,而不是 簡單賦值p = p + 1 '拋棄數(shù)組最后一個元素Loops = Left$(s, ps - 2) &#39去;

14、 掉多余的部分t = timeGetTime - tDebug.Print s '輸出Debug.Print CStr(t), Len(s)End Sub'= '方法七：(最快)Option ExplicitOption Base 1Private Declare Function timeGetTime Lib "winmm.dll" () As LongConst Nums = 10000Private Sub Command1_Click()Dim t As LongDim Num(Nums) As LongDim i, n As LongDi