标题: [求助]列出7个小于36的随机数? [打印本页]
作者: tempuser 时间: 2008-8-19 15:13 标题: [求助]列出7个小于36的随机数?
看到了龙卷风的求随机数的代码,突然想扩展一下,列出7个小于36的随机数,但始终无法做到,能帮我修正或提供一个代码吗:
@echo off
setlocal enabledelayedexpansion
for /l %%i in (1 1 7) do (
:return
set /a randomnum=!random!%%100
if !randomnum! gtr 36 (
goto return
) else (
echo this !randomnum!
pause
)
)
pause
作者: pusofalse 时间: 2008-8-19 15:16
for里面不能有标签。
另外要让一个随机数小于36，只要除以36取余就好了。
作者: tempuser 时间: 2008-8-20 09:01
谢谢!但是列出的随机数有相同的,有什么办法解决吗?
作者: FQ 时间: 2008-8-20 09:25
小试一把
@echo off&setlocal enabledelayedexpansion
for /l %%a in (1;1;7) do (
set/a b=!random!%%36
call :FQ !b!
)
goto :eof
:FQ
if not defined %1 (set %1=FQ) else goto loop
echo %1
goto :eof
:loop
set/a b=!random!%%99+1
call :FQ !b!
for /l %%a in (1;1;7) do (
set/a b=!random!%%36
call :FQ !b!
)
goto :eof
:FQ
if not defined %1 (set %1=FQ) else goto loop
echo %1
goto :eof
:loop
set/a b=!random!%%99+1
call :FQ !b!
作者: FQ 时间: 2008-8-20 09:27
我怀疑你是彩票爱好者，哎，我也喜欢玩彩票，不过从来没有中过
作者: moniuming 时间: 2008-8-20 09:32
试试这个?
@echo off
:again
for /l %%a in (0 1 36) do (set "%%a=")
set "n=0"
:begin
set /a "a=%random%%%36"
if defined %a% goto :begin
echo %a%
set "%a%=ok"
set /a "n+=1"
if %n% lss 7 goto :begin
echo.&pause&cls&goto :again
:again
for /l %%a in (0 1 36) do (set "%%a=")
set "n=0"
:begin
set /a "a=%random%%%36"
if defined %a% goto :begin
echo %a%
set "%a%=ok"
set /a "n+=1"
if %n% lss 7 goto :begin
echo.&pause&cls&goto :again
作者: bat-zw 时间: 2008-8-20 10:26
@echo off
:lp
set /a a=%random%%%36
if defined _a goto lp
set /p=%a% <nul&set "_%a%=a"
set /a n+=1
if %n% neq 7 goto lp
pause>nul
:lp
set /a a=%random%%%36
if defined _a goto lp
set /p=%a% <nul&set "_%a%=a"
set /a n+=1
if %n% neq 7 goto lp
pause>nul
作者: tempuser 时间: 2008-8-20 10:34
嘿嘿!是的,但我每次只买一注,纯属娱乐!
作者: tempuser 时间: 2008-8-20 10:42
| Quote: | |
|
能给解释一下思路吗?糊涂了!