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

頁: [1]

dsm00663720 發表於 2010-10-29 10:15 AM

Aeroth 發表於 2010-10-30 11:23 AM

請參考:Dim rand As New Random

Dim winnum As New List(Of Integer)
Dim num, counter As Integer
Dim result As String = ""

Do
num = rand.Next(1, 90)
If winnum.Contains(num) Then
Do
num = rand.Next(1, 90)
Loop Until winnum.Contains(num) = False
End If
winnum.Add(num)
counter += 1
Loop Until counter = 6

'Extracting and displaying the numbers from the array
For n As Integer = 0 To 5
result = winnum(n) & " " & result
Next

TSHsoft 發表於 2010-11-2 10:32 PM

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

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

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

pianistfly 發表於 2010-11-7 05:06 PM

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

TSHsoft這個方法雖然簡單但是有缺點，
如果針對大母體去取小樣本(例如1~100取10個數)，這個方法OK。
可是如果要取很多數字，那效率就會顯得很差，
我舉個誇張的例子：
如果母體是1~1000，要取900個值，
越取到後面就跑越慢，因為它有非常高的機率會找到重複的數字，
當取到第900個值，以機率來說只有1/10的機率可以找到沒重複的數字，
這樣迴圈就會多跑好幾次，電腦會變得相當辛苦！XD
所以建議用arthurliuliu版主的方法，
要取幾個值，迴圈就跑幾次就完成了，這樣才有效率。...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><br><br><br><br><br><div></div>

TSHsoft 發表於 2010-11-8 09:27 PM

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

因為樓主是初學者，而且題目只是要從49個數字取7個數字，所以只是舉個最簡單的例子和概念，然后剩下的讓樓主自己想。如果把最好的方法都說出來了，那么就學習不到如何構思程式了～
這是我個人的看法{:1_newboss:}...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>

arthurliuliu 發表於 2010-11-8 11:09 PM

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

我把他學了起來，現在剛好可以拿出來借花獻佛，
我覺得...其實理解別人的做法很容易，
但是要自己想出一套最好的方法，並不是很容易，
透過觀摩別人的作法，加廣自己的視野未嘗不是一件好事。...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>

zzzzz456111 發表於 2010-11-20 02:27 PM

本帖最後由 arthurliuliu 於 2010-11-21 08:23 AM 編輯

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

Dim rnd_n As Short
Dim ck(4) As Short
For i = 1 To num
rnd_n = Int(Rnd() * num) + 1
Do While ck(rnd_n) = 1
rnd_n = Int(Rnd() * num) + 1
Loop
Form1.N(i) = rnd_n
ck(rnd_n) = 1
Next
不知是版本不同還是我學的比較少版大的程式碼我看巄謀0.0
希望有幫助到你

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

gsg91123 發表於 2012-12-12 10:59 AM

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

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

arthurliuliu 發表於 2010-11-3 08:01 AM static/image/common/back.gif
有一種效能比較好的作法, 若是取七個亂數:
1.建立一個array, 然後按照順序把 ar~ar 填上 1~49
2.從a ...

想問一下這個方式機率上是不是會有問題?
我自己寫了一下將得到的數字次數做累加
重複跑了幾十萬次不管怎麼測都會有固定的數字偏高
1~50取7個 5 6 7固定偏高
1~10取3個 2 3 固定偏高
此方法 10*10*10=1000
普通的 10*9*8=720
不知道哪來多的280...
取數字的速度是很快沒錯不過有點不太敢用.......<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><br><br><br><br><br><div></div>

ahway9988 發表於 2012-12-23 06:14 PM

本帖最後由 ahway9988 於 2012-12-23 06:16 PM 編輯

4樓版主的做法應該是..Private Sub Form_Load()
Dim a(48) As Integer
Dim b As Integer
Dim m As Integer

For i = 0 To 48
      a(i) = i + 1
Next

For j = 0 To 5
      Randomize Timer
      b = Int(Rnd * (48 - j) + 1 + j)
      m = a(j)
      a(j) = a(b)
      a(b) = m
      Print a(j)
Next

End Sub

arthurliuliu 發表於 2012-12-24 08:24 AM

本帖最後由 arthurliuliu 於 2012-12-24 08:49 AM 編輯

jack810216 發表於 2012-12-23 04:19 AM static/image/common/back.gif
想問一下這個方式機率上是不是會有問題?
我自己寫了一下將得到的數字次數做累加
重複跑了幾十萬次不管 ...
理論上應該是不會有你說的問題，
要不要貼上你的程式碼，讓大家參考看看。...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>

jack810216 發表於 2012-12-24 06:08 PM

本帖最後由 jack810216 於 2012-12-24 06:18 PM 編輯

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Label1.Text = ""
      Dim rnd As New Random
      Dim t(50) As Byte
      Dim sum(50) As Long
      Dim rnd_tmp As Byte
      Dim tmp As Byte
      For k = 1 To 10000
         For n = 1 To 50
            t(n) = n
         Next
         For n = 1 To 7
            rnd_tmp = rnd.Next(1, 51)
            tmp = t(n)
            t(n) = t(rnd_tmp)
            t(rnd_tmp) = tmp
         Next

         For n = 1 To 7
            sum(t(n)) += 1
         Next
      Next
      For n = 1 To 50
         Label1.Text &= n & " : " & sum(n) & vbNewLine
      Next
End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Label1.Text = ""
      Dim rnd As New Random
      Dim t(50) As Byte
      Dim sum(50) As Long
      Dim tmp As Byte
      Dim x As Byte
      For i = 1 To 10000
         x = 0
         For n = 1 To 50
            t(n) = n
         Next
         While x < 7
            tmp = rnd.Next(1, 51)
            If t(tmp) <> 0 Then
                  t(tmp) = 0
                  sum(tmp) += 1
                  x += 1
            End If
         End While
      Next
      For n = 1 To 50
         Label1.Text &= n & " : " & sum(n) & vbNewLine
      Next
End Sub上面的應該是板主說的方法吧?
會有明顯的機率差
下面的是普通的方法就不會
我想是交換的問題吧

試了一下改成這樣就沒問題了...rnd_tmp = rnd.Next(n, 51)...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div>

lchihk 發表於 2019-12-22 09:43 PM

這是以前寫的樂透開獎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
   End If
Wend
Label1(n).Caption = Number
Next n
End Sub
******************************************

頁: [1]

伊莉討論區's Archiver

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