2个回答
展开全部
@echo off & color 1f & title 36选7
echo 36选7,看你能中什么奖!!!
echo.
setlocal enabledelayedexpansion
set /a times=1
set /a R_times=0
set /a Num1=%random%%%36+1
for /l %%i in (2,1,7) do call :Get_Num %%i
set Num=%Num1% %Num2% %Num3% %Num4% %Num5% %Num6% %Num7%
:Result
set /p Input=请输入第%times%个数字
For %%i in (%Num%) do (
if !Input! EQU %%i (
set /a R_times+=1
set Result=%Result% %Input%
set Num=!Num:%%i =!))
set /a times+=1
if %times% LEQ 7 goto :Result
echo. & echo 你猜中的数字有: %Result%,共%R_times%个;
set /a R_times+=1
for /f "delims=, tokens=%R_times%" %%i in ("纪念,纪念,纪念,纪念,三等,二等,一等,特等") do (
echo. & echo 可获得的奖励为:%%i奖!)
echo. & echo 结果为:%Num%
pause>nul
:Get_Num
set /a Num%1=%random%%%36+1
set /a var=%1-1
for /l %%i in (1,1,%var%) do (
if !Num%1! EQU !Num%%i! call :Get_Num %1)
批处理写的,那些语句不懂就追问我!
操作方法:打开记事本,复制上面代码,另存为*.bat的文档,执行就可以了,*代表文件名
echo 36选7,看你能中什么奖!!!
echo.
setlocal enabledelayedexpansion
set /a times=1
set /a R_times=0
set /a Num1=%random%%%36+1
for /l %%i in (2,1,7) do call :Get_Num %%i
set Num=%Num1% %Num2% %Num3% %Num4% %Num5% %Num6% %Num7%
:Result
set /p Input=请输入第%times%个数字
For %%i in (%Num%) do (
if !Input! EQU %%i (
set /a R_times+=1
set Result=%Result% %Input%
set Num=!Num:%%i =!))
set /a times+=1
if %times% LEQ 7 goto :Result
echo. & echo 你猜中的数字有: %Result%,共%R_times%个;
set /a R_times+=1
for /f "delims=, tokens=%R_times%" %%i in ("纪念,纪念,纪念,纪念,三等,二等,一等,特等") do (
echo. & echo 可获得的奖励为:%%i奖!)
echo. & echo 结果为:%Num%
pause>nul
:Get_Num
set /a Num%1=%random%%%36+1
set /a var=%1-1
for /l %%i in (1,1,%var%) do (
if !Num%1! EQU !Num%%i! call :Get_Num %1)
批处理写的,那些语句不懂就追问我!
操作方法:打开记事本,复制上面代码,另存为*.bat的文档,执行就可以了,*代表文件名
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询