雙色球幸運抽獎關于 RANDOM 隨機數一直是個比較爭議的寫法，昨天在

http://bbs.bathome.net/thread-51616-1-1.html

回帖的時候，關于數值范圍的選定個人認為不夠嚴謹，于是寫下了自己的想法、打了會游戲太無聊了，一時興起以那個思路為基礎，寫個雙色球抽獎腳本。希望大家給個意見。----------------數值范圍1~33

IF %紅球1% LSS 1 GOTO 紅球1 
IF %紅球1% GTR 33 GOTO 紅球1
nclick="copycode($('code0'));">復制代碼

當隨機數為個位數，則在前面補個0

IF %紅球1:~1,1%== SET 紅球1=0%紅球1%
nclick="copycode($('code1'));">復制代碼

檢索前面數值，如有重復則GOTO 再次隨機。

@ECHO %紅球6%|FINDSTR /I %紅球1% %紅球2% %紅球3% %紅球4% %紅球5%>NUL 2>NUL&&GOTO 紅球6
nclick="copycode($('code2'));">復制代碼

完整程序。

@ECHO OFF&COLOR 0E&MODE CON: COLS=60 LINES=3&TITLE 雙色球隨機抽號，祝君好運!
:紅球1
SET 紅球1=%RANDOM%
IF %紅球1% LSS 1 GOTO 紅球1 
IF %紅球1% GTR 33 GOTO 紅球1
IF %紅球1:~1,1%== SET 紅球1=0%紅球1%
:紅球2
SET 紅球2=%RANDOM%
IF %紅球2% LSS 1 GOTO 紅球2 
IF %紅球2% GTR 33 GOTO 紅球2
IF %紅球2:~1,1%== SET 紅球2=0%紅球2%
@ECHO %紅球2%|FINDSTR /I %紅球1%>NUL 2>NUL&&GOTO 紅球2
:紅球3
SET 紅球3=%RANDOM%
IF %紅球3% LSS 1 GOTO 紅球3
IF %紅球3% GTR 33 GOTO 紅球3
IF %紅球3:~1,1%== SET 紅球3=0%紅球3%
@ECHO %紅球3%|FINDSTR /I %紅球1% %紅球2%>NUL 2>NUL&&GOTO 紅球3
:紅球4
SET 紅球4=%RANDOM%
IF %紅球4% LSS 1 GOTO 紅球4 
IF %紅球4% GTR 33 GOTO 紅球4
IF %紅球4:~1,1%== SET 紅球4=0%紅球4%
@ECHO %紅球4%|FINDSTR /I %紅球1% %紅球2% %紅球3%>NUL 2>NUL&&GOTO 紅球4
:紅球5
SET 紅球5=%RANDOM%
IF %紅球5% LSS 1 GOTO 紅球5 
IF %紅球5% GTR 33 GOTO 紅球5
IF %紅球5:~1,1%== SET 紅球5=0%紅球5%
@ECHO %紅球5%|FINDSTR /I %紅球1% %紅球2% %紅球3% %紅球4%>NUL 2>NUL&&GOTO 紅球5
:紅球6
SET 紅球6=%RANDOM%
IF %紅球6% LSS 1 GOTO 紅球6 
IF %紅球6% GTR 33 GOTO 紅球6
IF %紅球6:~1,1%== SET 紅球6=0%紅球6%
@ECHO %紅球6%|FINDSTR /I %紅球1% %紅球2% %紅球3% %紅球4% %紅球5%>NUL 2>NUL&&GOTO 紅球6
:藍球
SET 藍球=%RANDOM%
IF %藍球% LSS 1 GOTO 藍球 
IF %藍球% GTR 16 GOTO 藍球
IF %藍球:~1,1%== SET 藍球=0%藍球%
ECHO 本次雙色球【%紅球1%，%紅球2%，%紅球3%，%紅球4%，%紅球5%，%紅球6%，藍色號碼:%藍球%】祝君好運!&PAUSE>NUL&CLS
GOTO 紅球1
nclick="copycode($('code3'));">復制代碼

敬言：如果想知道什么是希望請買一張彩票，如果想知道什么是絕望請買一大堆彩票！不過如果，各位老板要是用這個腳本中大獎了記得回饋作者我啊。