中国DOS联盟

由于工作需要，我要生成2000个不重复的5位随机数，用vbs或bat怎么实现？

Last edited by HAT on 2008-12-22 at 16:04 ]

@echo off

for /l %%a in (1 1 2000) do (call :rdm)

goto :eof

:rdm

set str=%random%%random%%random%%random%

set str=%str:~-5%

if defined _%str% goto :rdm

set _%str%=ok

>>rst.txt set/p=%str% <nul

Last edited by moniuming on 2008-12-22 at 14:36 ]

@Echo Off & setlocal EnableDelayedExpansion

For /L %%a in (1001 1 3000) do (

       set /a n=!random! %% 9 + 1

       set .!random!!random!=!n!%%a

)

For /F "tokens=2 delims==" %%a in ('set .') do Echo>>num.txt %%a

start "" "num.txt"

Last edited by pusofalse on 2008-12-22 at 16:18 ]

谢谢楼上2位！！
2楼的产生后输出成文件使用空格隔开的，不如3楼每数一行
不过还是感谢2位！

Last edited by whhlcj on 2008-12-22 at 16:03 ]