tireless

@echo off
title 福利彩票《双色球》机选
:Input
set 注数=1
set /p 注数=请输入投注注数: 
cls
set /a "1/注数" 2>nul || (
  echo.&echo  请输入纯数字 !
  goto :Pause
)

:Repeat
setlocal

:Loop
set /a Red=%random%%%33+1
if defined %Red% goto :Loop
set /p=%Red% <nul
set /a n+=1
set %Red%=.
if %n% lss 6 goto :Loop

set /a Blue=%random%%%16+1
echo - %Blue%

endlocal
set /a 注数-=1,1/注数 2>nul && goto :Repeat

:Pause
echo. & set/p=请按任意键返回. . . <nul
pause>nul & cls & goto :Input
复制代码

[ 本帖最后由 tireless 于 2009-1-22 11:29 编辑 ]