請問如何能讓程式出來的數字不重複到(樂透號碼)

jack810216

arthurliuliu 發表於 2010-11-3 08:01 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

有一種效能比較好的作法, 若是取七個亂數:
1.建立一個array, 然後按照順序把 ar[0]~ar[48] 填上 1~49
2.從a ...

想問一下這個方式 機率上是不是會有問題?
...

瀏覽完整內容，請先 註冊 或 登入會員

jack810216

1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
2.         Label1.Text = ""
   
3.         Dim rnd As New Random
   
4.         Dim t(50) As Byte
   
5.         Dim sum(50) As Long
   
6.         Dim rnd_tmp As Byte
   
7.         Dim tmp As Byte
   
8.         For k = 1 To 10000
   
9.             For n = 1 To 50
   
10.                 t(n) = n
    
11.             Next
    
12.             For n = 1 To 7
    
13.                 rnd_tmp = rnd.Next(1, 51)
    
14.                 tmp = t(n)
    
15.                 t(n) = t(rnd_tmp)
    
16.                 t(rnd_tmp) = tmp
    
17.             Next
    
18. 
    
19.             For n = 1 To 7
    
20.                 sum(t(n)) += 1
    
21.             Next
    
22.         Next
    
23.         For n = 1 To 50
    
24.             Label1.Text &= n & " : " & sum(n) & vbNewLine
    
25.         Next
    
26.     End Sub

複製代碼

1.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
2.         Label1.Text = ""
   
3.         Dim rnd As New Random
   
4.         Dim t(50) As Byte
   
5.         Dim sum(50) As Long
   
6.         Dim tmp As Byte
   
7.         Dim x As Byte
   
8.         For i = 1 To 10000
   
9.             x = 0
   
10.             For n = 1 To 50
    
11.                 t(n) = n
    
12.             Next
    
13.             While x < 7
    
14.                 tmp = rnd.Next(1, 51)
    
15.                 If t(tmp) <> 0 Then
    
16.                     t(tmp) = 0
    
17.                     sum(tmp) += 1
    
18.                     x += 1
    
19.                 End If
    
20.             End While
    
21.         Next
    
22.         For n = 1 To 50
    
23.             Label1.Text &= n & " : " & sum(n) & vbNewLine
    
24.         Next
    
25.     End Sub

複製代碼

上面的應該是板主說的方法吧?
會有明顯的機率差
下面的是普通的方法就不會
我想是交換的問題吧

試了一下 改成這樣就沒問題了...

1. rnd_tmp = rnd.Next(n, 51)

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員