批處理版雙色球幸運抽獎(新改版)先上代碼，，，，，，，，，，，，，，

@Echo off&Color 0E&MODE CON: COLS=25 LINES=3&TITLE 雙色球隨機抽號，祝君好運!
Set 紅球池=,,,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,
Set 藍球池=,,,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,
Goto,紅球
:Sr
Set/a d=34-%1
Set R=%RANDOM%
if %R% lss 1 Goto,Sr
if %R% gtr %d% Goto,Sr
Set/a r*=3
Goto,:eof
:EJia
Pushd %Temp%
Set TJia=%~2 
Set/P=%~1<Nul&Set/P=%~3<Nul>%TJia%_&FindStr /A:%~4 .* %TJia%_* &Del /q %TJia%_
Popd & Goto,:Eof
:紅球
Set/a s+=1
Call,:Sr %s%
Call,Set 紅球%s%=%%紅球池:~%R%,3%%
Call,Set 新紅球=%%紅球%s%%%
Call,Set 紅球池=%%紅球池:%新紅球%=%%
Call,Set 紅球%s%=%%紅球%s%:~0,-1%%
if not %s%==6 Goto,紅球
Call,:Sr 18
Call,Set 藍球=%%藍球池:~%R%,2%%
Call,:EJia 紅球= %紅球1% - 4f&Call,:EJia  %紅球2% - 4f&Call,:EJia  %紅球3% - 4f&Call,:EJia  %紅球4% - 4f&Call,:EJia  %紅球5% - 4f&Call,:EJia  %紅球6%  4f
Echo.&Call,:EJia 藍球= %藍球% 祝君好運! 1f
Pause>Nul&Exit
nclick="copycode($('code0'));">復(fù)制代碼

人啊就怕無聊，，，以前曾在論壇里發(fā) 過一個臨時編寫的初版，，，http://www.bathome.net/thread-51617-1-1.html最近無聊，，去翻了一下以前寫的貼，，，發(fā)現(xiàn)那時候的寫法比較粗糙，生硬。感覺可以有新的寫法，，剛好又無聊，就改寫了這個新版本。當然，也可以改寫成其他的抽獎品種，，，話說，現(xiàn)在的雙色球 是不是33選6 +16選1 鄙人都搞不清楚了。這里就只是改寫 N年前的版本，花了不少時間修改了不少編寫時的變量錯誤，最后得出這個版本。鄙人不好賭，也不相信什么運氣學(xué)說。寫這類腳本，純屬的鍛煉寫法。歡迎各位新舊網(wǎng)友們一起借鑒，討論，批評，解答。呵，最后還是那鄙人的那句格言，，，，如果想知道什么是希望請買一張彩票，如果想知道什么是絕望請買一大堆彩票！人啊，不能太固執(zhí)和認死理，否則會活得很累的！