foxJL

变量名和值各不重复且值1-100之间不重复
大家测试看看代码有没有问题

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1,1,100) do (call :ran %%i&echo %%i=!%%i!)
pause>nul&exit
:ran
set /a n=%random% %% 101
if %n% equ 0 (goto ran) else (
        if !z%n%! equ 0 (
                if %n% equ %1 (goto ran) else (
                set %1=%n%&set /a z%n%+=1
                )
        ) else (goto ran)
)
goto :eof
复制代码

[ 本帖最后由 foxJL 于 2008-1-16 09:59 编辑 ]

foxJL

楼上厉害呀.不用一个IF,
不过刚才测试了一下会出现值为空的情况,不知道是什么原因.