中国DOS联盟

@echo off
set Max=100
set N=5

:start
cls
echo %time%
set Num=
set Tmp$=

:loop
set /a randomloop=(%random%+%random%+%random%)/3%%%Max%+1
for %%n in (%Tmp$%) do if "%randomloop%" == "%%n" goto loop
call set Tmp$=%%Tmp$%% %randomloop%
set /a Num+=1
set random_%Num%=%randomloop%
if %Num% LSS %N% goto loop

echo %Tmp$%
echo %time%
pause
goto start
exit

@echo off&setlocal enabledelayedexpansion
for /l %%a in (1;1;5) do (
set/a b=!random!%%99+1
call :pp !b!
)
goto :eof
:pp
if not defined %1 (set %1=a) else goto loop
echo %1
goto :eof
:loop
set/a b=!random!%%99+1
call :pp !b!

@echo off
:begin
cls
set count=0

:loop
set /a num=%random%%%100+1
echo %str%|find " %num% ">nul&&goto loop
set str=%str% %num%
set /a count+=1
if %count% lss 5 goto loop
echo %str%
set str=
pause
goto begin

@echo off
setlocal EnableDelayedExpansion

:: 初始化顺序数列
for /l %%i in (0,1,3) do (
    set rnum%%i=%%i
)

:: 对数列进行随机交换
for /l %%i in (0,1,3) do (
    set /a rnd=!random! %% 3
    call set tmp=%%rnum!rnd!%%
    set rnum!rnd!=!rnum%%i!
    set rnum%%i=!tmp!
)

set rnum

------------------------------------------
第一个FOR循环(0-3),四次

关键句:set rnum%%i=%%i
     rnum0=0
     rnum1=1
     rnum2=2
     rnum3=3
------------------------------------------
第二个FOR循环(0-3),四次

----------第一次:---------
关键句1: set /a rnd=!random! %% 3
           运行结果:     rnd=1
              ( !random! %% 3 的值为0-3间任意整数" 这里假设为1"
                作用:将0-3间任意整数赋值给变量rnd )

关键句2: call set tmp=%%rnum!rnd!%%
           运行结果:   tmp=1
              (因为此时 !rnd! 值为1 ,rnum!rnd!就是rnum1
                   此时 rnum1 值为1 ,所以%%rnum!rnd!%%值为1,所以tmp=1.
               注意:rnum 并不是一个变量,这里只是一段字符串,与!rnd!组合后成为变量名
               作用:和关键句1配合,将第一个循环的产生的任意一个变量的"值"赋给变量tmp)

关键句3: set rnum!rnd!=!rnum%%i!
            运行结果:  rnum1=0
              (因为此时!rnd!   值为1,rnum!rnd!就是rnum1,
                   此时%%i     值为0,rnum%%i  就是rnum0,
                   此时!rnum0! 值为0,所以rnum1=0
               注意:此时对第一个FOR循环中产生的变量的值进行了修改如下:
                   rnum0=0
                   rnum1=0
                   rnum2=2
                   rnum3=3
               作用:和关键句1配合,随机抽取第一个FOR循环产生的变量名,并为其赋值为
               "与第二个FOR循环,'此次循环次数'相对应的,第一个FOR循环内产生的变量的'值'")

关键句4: set rnum%%i=!tmp!              
             运行结果:  rnum0=1
             (此时对第一个FOR循环中产生的变量的值进行了修改如下:
                   rnum0=1
                   rnum1=0
                   rnum2=2
                   rnum3=3
              看到这里就豁然开朗了,后面的3次循环也就不用再看了,
              正是作者在原代码在第2个FOR循环前注释的:              

              作用: 与关键句1.2.3配合,对数列进行随机交换.

:: 生成0-99之间的随机数列 R1
:: qzwqzw@bbs.cn-dos.net
:: 2007-01-04 23:03
@echo off
setlocal EnableDelayedExpansion

:: 初始化顺序数列
for /l %%i in (0,1,99) do (
    set rnum%%i=%%i
)

:: 对数列进行随机交换
:loop
set time1=%time%
if not "%time1:~-2%" == "00" goto loop
cls
for /l %%i in (0,1,99) do (
    set /a rnd=!random! %% 100
    call set tmp=%%rnum!rnd!%%
    set rnum!rnd!=!rnum%%i!
    set rnum%%i=!tmp!
)

echo %rnum1% %rnum2% %rnum3% %rnum4% %rnum5%
echo %time1%
echo %time%
pause
goto loop

@echo off
set Max=100
set N=5

:start
set time1=%time%
if not "%time1:~-2%" == "00" goto start
cls
set Num=
set Tmp$=

:loop
set /a randomloop=(%random%+%random%+%random%)/3%%%Max%+1
for %%n in (%Tmp$%) do if "%randomloop%" == "%%n" goto loop
call set Tmp$=%%Tmp$%% %randomloop%
set /a Num+=1
set random_%Num%=%randomloop%
if %Num% LSS %N% goto loop

echo %Tmp$%
echo %time1%
echo %time%
pause
goto start
exit

for /l %%i in (1,1,5) do call :ccc %%i
echo %l1% %l2% %l3% %l4% %l5%
pause
exit
:ccc
set /a l%1=(((%time:~-1%+%1)*9-1)*(%time:~6,1%+%1)*(%time:~-2%+%1)*(%time:~7,1%+%1)*%1)%%100+%time:~7,1%+%1