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

Aeroth

請參考:

1. Dim rand As New Random
   
2. 
   
3. Dim winnum As New List(Of Integer)
   
4. Dim num, counter As Integer
   
5. Dim result As String = ""
   
6. 
   
7. Do
   
8. num = rand.Next(1, 90)
   
9. If winnum.Contains(num) Then
   
10. Do
    
11. num = rand.Next(1, 90)
    
12. Loop Until winnum.Contains(num) = False
    
13. End If
    
14. winnum.Add(num)
    
15. counter += 1
    
16. Loop Until counter = 6
    
17. 
    
18. 'Extracting and displaying the numbers from the array
    
19. For n As Integer = 0 To 5
    
20. result = winnum(n) & " " & result
    
21. Next

複製代碼

...

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

1) 建立一個7個空間的array，用來存放選出來的號碼
2) 每次選出號碼后就檢查array里的號碼是否已經出現過了，如果沒有就存進array里
3) 基本大致上是這樣，完成！

arthurliuliu

有一種效能比較好的作法, 若是取七個亂數:
1.建立一個array, 然後按照順序把 ar[0]~ar[48] 填上 1~49
2.從ar[0]開始取亂數的index, 讓ar[0]跟ar[index]的直交換,
  假設取到的index是10好了, 讓 ar[0]=11, 讓 ar[10]=1
3.用迴圈跑7次, 讓 ar[0]~ar[6] 的值都取過亂數, ar[0]~ar[6] 就是結果

pianistfly

1) 建立一個7個空間的array，用來存放選出來的號碼
2) 每次選出號碼后就檢查array里的號碼是否已經出現過了 ...
TSHsoft 發表於 2010-11-2 10:32 PM

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

...

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

TSHsoft這個方法雖然簡單但是有缺點，
如果針對大母體去取小樣本(例如1~100取10個數)，這個方 ...
pianistfly 發表於 2010-11-7 05:06 PM

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

因為樓主是初學者，而且題目只是要從49個數字取7個數字，所以只是舉個最簡單的例子和概念，然后剩下的讓樓主自己想。如果把最好的方法都說出來了，那么就學習不到如何構思程式了～
...

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

arthurliuliu

我剛開始寫程式的時候，也有接觸到這個題目，
TSHsoft 的作法是最直接的，也是我一開始寫這個題目用的方法。
有一次因為某個需要，必須做一支 1~100 取 90 個亂數的小程式，
我突然發現為什麼會跑這麼慢，以前都不會啊，我才想到會大量重複的問題。
即使我知道有這個問題，我卻沒有想到比較好的做法來克服這個問題，
直到我在網路上看到這個做法。
...

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

zzzzz456111

小弟寫隨機不重複時用到的程式碼

1. Dim rnd_n As Short
   
2. Dim ck(4) As Short
   
3. For i = 1 To num
   
4. rnd_n = Int(Rnd() * num) + 1
   
5. Do While ck(rnd_n) = 1
   
6. rnd_n = Int(Rnd() * num) + 1
   
7. Loop
   
8. Form1.N(i) = rnd_n
   
9. ck(rnd_n) = 1
   
10. Next

複製代碼

不知是版本不同還是我學的比較少版大的程式碼我看巄謀0.0
希望有幫助到你

code沒包好,板主代為編輯.

...

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

gsg91123

可以幫忙寫成C語言嗎??

jack810216

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

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

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

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

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

ahway9988

4樓版主的做法應該是..

1. Private Sub Form_Load()
   
2.     Dim a(48) As Integer
   
3.     Dim b As Integer
   
4.     Dim m As Integer
   
5.    
   
6.     For i = 0 To 48
   
7.         a(i) = i + 1
   
8.     Next
   
9.    
   
10.     For j = 0 To 5
    
11.         Randomize Timer
    
12.         b = Int(Rnd * (48 - j) + 1 + j)
    
13.         m = a(j)
    
14.         a(j) = a(b)
    
15.         a(b) = m
    
16.         Print a(j)
    
17.     Next
    
18. 
    
19. End Sub

複製代碼

...

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

arthurliuliu

jack810216 發表於 2012-12-23 04:19 AM

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

想問一下這個方式 機率上是不是會有問題?
我自己寫了一下 將得到的數字次數做累加
重複跑了幾十萬次 不管 ...

...

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

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)

複製代碼

...

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

lchihk

這是以前寫的樂透開獎49號隨機出7碼

******************************************
Private Sub Command1_Click()
Dim num(49) As Boolean
For n = 0 To 6
   Randomize
   FT = True
   While FT
     Number = Int(49 * Rnd) + 1
     If Not num(Number) Then
        num(Number) = True
        FT = False
...

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