找回密碼
 註冊
|註冊|登錄

伊莉討論區

搜索
尊貴會員無限看帖不用回覆搞笑、娛樂、精彩的影片讓你看迅雷動畫正式開放,齊來分享!
霹靂航海王mega 無三上悠亜三上259luxuoverlord
三上悠亜post極品人妻綠帽幸福綠皮新井梓頭文字

休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
查看: 5969|回復: 13

[求助] 請問如何能讓程式出來的數字不重複到(樂透號碼)[複製鏈接]

頭像被屏蔽

  高級幼兒生(30/200)

Rank: 1

帖子
347
積分
181 點
潛水值
12444 米
發表於 2010-10-29 10:15 AM|顯示全部樓層
提示: 該帖被管理員或版主屏蔽
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。

使用道具檢舉

Rank: 2Rank: 2

帖子
382
積分
885 點
潛水值
17392 米
發表於 2010-10-30 11:23 AM|顯示全部樓層
請參考:
  1. Dim rand As New Random

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

  5. Do
  6. num = rand.Next(1, 90)
  7. If winnum.Contains(num) Then
  8. Do
  9. num = rand.Next(1, 90)
  10. Loop Until winnum.Contains(num) = False
  11. End If
  12. winnum.Add(num)
  13. counter += 1
  14. Loop Until counter = 6

  15. 'Extracting and displaying the numbers from the array
  16. For n As Integer = 0 To 5
  17. result = winnum(n) & " " & result
  18. Next
複製代碼
...
瀏覽完整內容,請先 註冊登入會員
什麼都會,什麼都不會!
如果發覺自己無法使用一些功能或出現問題,請按重新整理一次,並待所有網頁內容完全載入後5秒才進行操作。

使用道具檢舉

帖子
0
積分
0 點
潛水值
80 米
發表於 2010-11-2 10:32 PM|顯示全部樓層
成為伊莉的版主,你將獲得更高級和無限的權限。把你感興趣的版面一步步地發展和豐盛,那種滿足感等著你來嚐嚐喔。
1) 建立一個7個空間的array,用來存放選出來的號碼
2) 每次選出號碼后就檢查array里的號碼是否已經出現過了,如果沒有就存進array里
3) 基本大致上是這樣,完成!

使用道具檢舉

  專 家(12000/24000)

落葉知秋

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
1601
積分
23887 點
潛水值
54811 米
發表於 2010-11-3 08:01 AM|顯示全部樓層
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。
有一種效能比較好的作法, 若是取七個亂數:
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] 就是結果
新手就更該多用「心」動「手」找答案;
經驗是累積來的,答案則是 Google 來的。
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。

使用道具檢舉

帖子
169
積分
0 點
潛水值
19608 米
發表於 2010-11-7 05:06 PM|顯示全部樓層
1) 建立一個7個空間的array,用來存放選出來的號碼
2) 每次選出號碼后就檢查array里的號碼是否已經出現過了 ...
TSHsoft 發表於 2010-11-2 10:32 PM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員


...
瀏覽完整內容,請先 註冊登入會員





若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com

使用道具檢舉

帖子
0
積分
0 點
潛水值
80 米
發表於 2010-11-8 09:27 PM|顯示全部樓層
TSHsoft這個方法雖然簡單但是有缺點,
如果針對大母體去取小樣本(例如1~100取10個數),這個方 ...
pianistfly 發表於 2010-11-7 05:06 PM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員


因為樓主是初學者,而且題目只是要從49個數字取7個數字,所以只是舉個最簡單的例子和概念,然后剩下的讓樓主自己想。如果把最好的方法都說出來了,那么就學習不到如何構思程式了~
...
瀏覽完整內容,請先 註冊登入會員

使用道具檢舉

  專 家(12000/24000)

落葉知秋

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
1601
積分
23887 點
潛水值
54811 米
發表於 2010-11-8 11:09 PM|顯示全部樓層
若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com
我剛開始寫程式的時候,也有接觸到這個題目,
TSHsoft 的作法是最直接的,也是我一開始寫這個題目用的方法。
有一次因為某個需要,必須做一支 1~100 取 90 個亂數的小程式,
我突然發現為什麼會跑這麼慢,以前都不會啊,我才想到會大量重複的問題。
即使我知道有這個問題,我卻沒有想到比較好的做法來克服這個問題,
直到我在網路上看到這個做法。
...
瀏覽完整內容,請先 註冊登入會員
新手就更該多用「心」動「手」找答案;
經驗是累積來的,答案則是 Google 來的。
回覆中加入附件並不會使你增加積分,請使用主題方式發佈附件。

使用道具檢舉

Rank: 3Rank: 3Rank: 3

帖子
1182
積分
2642 點
潛水值
18915 米
發表於 2010-11-20 02:27 PM|顯示全部樓層
若瀏覽伊莉的時侯發生問題或不正常情況,請使用Internet Explorer(I.E)。
本帖最後由 arthurliuliu 於 2010-11-21 08:23 AM 編輯

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

  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沒包好,板主代為編輯.
...
瀏覽完整內容,請先 註冊登入會員
如果你忘記伊莉的密碼,請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出,系統就會把密碼寄到你的E-Mail。

使用道具檢舉

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
533
積分
1769 點
潛水值
47964 米
發表於 2012-12-12 10:59 AM|顯示全部樓層
若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。
可以幫忙寫成C語言嗎??
如果瀏覽伊莉時速度太慢或無法連接,可以使用其他分流瀏覽伊莉,www01.eyny.com(02,03)。

使用道具檢舉

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
855
積分
102 點
潛水值
45529 米
發表於 2012-12-23 04:19 AM|顯示全部樓層
若新密碼無法使用,可能是數據未更新。請使用舊密碼看看。
arthurliuliu 發表於 2010-11-3 08:01 AM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

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

想問一下這個方式 機率上是不是會有問題?
...
瀏覽完整內容,請先 註冊登入會員





使用道具檢舉

Rank: 3Rank: 3Rank: 3

帖子
749
積分
1392 點
潛水值
15572 米
發表於 2012-12-23 06:14 PM|顯示全部樓層
本帖最後由 ahway9988 於 2012-12-23 06:16 PM 編輯

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. End Sub
複製代碼
...
瀏覽完整內容,請先 註冊登入會員
分享使你變得更實在,可以使其他人感到快樂,分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。

使用道具檢舉

  專 家(12000/24000)

落葉知秋

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
1601
積分
23887 點
潛水值
54811 米
發表於 2012-12-24 08:24 AM|顯示全部樓層
本帖最後由 arthurliuliu 於 2012-12-24 08:49 AM 編輯
jack810216 發表於 2012-12-23 04:19 AM
下載: 訪客無法瀏覽下載點,請先 註冊登入會員

想問一下這個方式 機率上是不是會有問題?
我自己寫了一下 將得到的數字次數做累加
重複跑了幾十萬次 不管 ...
...
瀏覽完整內容,請先 註冊登入會員
新手就更該多用「心」動「手」找答案;
經驗是累積來的,答案則是 Google 來的。
如果瀏覽伊莉時速度太慢或無法連接,可以使用其他分流瀏覽伊莉,www01.eyny.com(02,03)。

使用道具檢舉

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

帖子
855
積分
102 點
潛水值
45529 米
發表於 2012-12-24 06:08 PM|顯示全部樓層
如果你忘記伊莉的密碼,請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出,系統就會把密碼寄到你的E-Mail。
本帖最後由 jack810216 於 2012-12-24 06:18 PM 編輯
  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.             For n = 1 To 7
  19.                 sum(t(n)) += 1
  20.             Next
  21.         Next
  22.         For n = 1 To 50
  23.             Label1.Text &= n & " : " & sum(n) & vbNewLine
  24.         Next
  25.     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)
複製代碼
...
瀏覽完整內容,請先 註冊登入會員
若對尊貴或贊助會員有任何疑問,歡迎向我們查詢。我們的即時通或MSN: admin@eyny.com

使用道具檢舉

帖子
8
積分
6 點
潛水值
4020 米
發表於 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
...
瀏覽完整內容,請先 註冊登入會員

使用道具檢舉

您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明:本討論區是以即時上載留言的方式運作,對所有留言的真實性、完整性及立場等,不負任何法律責任。而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。於有關情形下,用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限,故不能完全監察所有留言,若讀者發現有留言出現問題,請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言,同時亦有不刪除留言的權利。切勿撰寫粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論,敬請自律。本網站保留一切法律權利。
回頂部