PCDVD數位科技討論區

PCDVD數位科技討論區 (https://www.pcdvd.com.tw/index.php)
-   七嘴八舌異言堂 (https://www.pcdvd.com.tw/forumdisplay.php?f=12)
-   -   有關vb的問題 (https://www.pcdvd.com.tw/showthread.php?t=130458)

rogeryo 2002-08-27 01:47 AM

有關vb的問題
 
我想寫一個簡單的樂透程式~~
但是寫到亂數產生時卡住了
我不知道如何讓亂數都不同~~
我是設計7個文書格(6個號碼+特別號)
我想要讓第一個亂數在42個號碼選出時
第二個亂數會屏除第一個亂數,就是除了第一個以外的41個中選1個
第三則是屏除第一和第二個........
以此類推

不知道要怎ㄇ寫讓他跳過已經選出的號碼!!

另外不知道還有別的方法或程式可供小弟參考ㄇ!?
我在線上等各位高手解答~~
ICQ:17127988

alecs 2002-08-27 03:01 AM

Re: 有關vb的問題
 
q:不知道要怎ㄇ寫讓他跳過已經選出的號碼!!
a:
Randomize
if a=b then b=int(rnd*100)



引用:
Originally posted by rogeryo
我想寫一個簡單的樂透程式~~
但是寫到亂數產生時卡住了
我不知道如何讓亂數都不同~~
我是設計7個文書格(6個號碼+特別號)
我想要讓第一個亂數在42個號碼選出時
第二個亂數會屏除第一個亂數,就是除了第一個以外的41個中選1個
第三則是屏除第一和第二個........
以此類推



另外不知道還有別的方法或程式可供小弟參考ㄇ!?
我在線上等各位高手解答~~
ICQ:17127988

pets 2002-08-27 08:16 AM

Re: 有關vb的問題
 
引用:
Originally posted by rogeryo
我想寫一個簡單的樂透程式~~
但是寫到亂數產生時卡住了
我不知道如何讓亂數都不同~~
我是設計7個文書格(6個號碼+特別號)
我想要讓第一個亂數在42個號碼選出時
第二個亂數會屏除第一個亂數,就是除了第一個以外的41個中選1個
第三則是屏除第一和第二個........
以此類推

不知道要怎ㄇ寫讓他跳過已經選出的號碼!!

另外不知道還有別的方法或程式可供小弟參考ㄇ!?
我在線上等各位高手解答~~
ICQ:17127988

提一個簡單的概念~
用if迴圈去判斷此數是否已經出現過了...
假如出現過了,就再亂數一次...
假如未出現,就往下一個跑..以此類推..
不過,vb的內建函數可以產生不重複的數字吧~:)


所有的時間均為GMT +8。 現在的時間是11:27 AM.

vBulletin Version 3.0.1
powered_by_vbulletin 2026。