看板 [ Visual_Basic ]
討論串[VB6 ] 關於取亂數不重複
共 3 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#1
[VB6 ] 關於取亂數不重複
推噓3(3推 0噓 2→)留言5則，0人參與, 最新作者kclsixbig30 (...)時間16年前 (2008/06/26 17:30), 編輯資訊
1
0
0
內容預覽:
我是一個剛接觸的ＶＢ的新手，最近學到取亂數. 下面是我寫的程式碼. Private Sub Command1_Click(). For i = 1 To 7. Text1 = Int(Rnd * 46) + 1. Text2 = Int(Rnd * 46) + 1. Text3 = Int(Rnd
(還有98個字)
#2
Re: [VB6 ] 關於取亂數不重複
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者MOONRAKER (㊣烏笨禿，又笨又禿)時間16年前 (2008/06/26 19:54), 編輯資訊
0
0
3
內容預覽:
老手介紹過的標準作法：. 假設你要從 n 個號碼中抽出 k 個. (1)用一個陣列 A 存放候選數 1 .. n. (2)用一個 for 讓變數 i 從 1 跑到 k. (3)for每跑一次就產生一個亂數 r ，範圍為[1,n]. (4)交換 A(r) 和 A(i). (5)迴圈跑完，陣列 A(1)
(還有307個字)
#3
Re: [VB6 ] 關於取亂數不重複
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者fumizuki (矇面加菲獅)時間16年前 (2008/06/26 22:32), 編輯資訊
0
0
0
內容預覽:
剛才依照幾位板友的建議，試著用了我沒用過的寫法來寫49選6的亂數值. 先把49個數字放在一個暫存的陣列中，再抽出6個數字. (以前我都只會用迴圈去找有沒有重覆，效能很差，還有可能會無窮迴圈). Public Sub Main(). Randomize Timer. '設定最小值及最大值. Const
(還有1263個字)
首頁
上一頁
1
下一頁
尾頁