leap

@echo off&setlocal enabledelayedexpansion
set a=0123456789
set b=
set/p b=输入随机洗牌次数：
:1
set/a n=!random!%%10
set/a b-=1
if !b! equ 0 (echo 洗牌完毕&goto 2)
set aa=!a:~%n%,1!
set a=!aa!!a:%aa%=!
echo !a!>a.txt
goto 1
:2
for /f %%i in (a.txt) do (
        set jg=%%i
        set jg1=!jg:~1,4!
        set jg2=!jg:~2,4!
        if !jg1! gtr 999 (echo !jg1!) else (echo !jg2!
))
pause&del a.txt
复制代码

leap

@echo off&setlocal enabledelayedexpansion
set a=0123456789
set b=10
set tt=
set/p tt=输入您需要的几位不重复数字：
set ttt=9999999999
:1
set ttt=!ttt:~0,%tt%-1!
set/a n=!random!%%10
set/a b-=1
if !b! equ 0 (echo 洗牌完毕&goto 2)
set aa=!a:~%n%,1!
set a=!aa!!a:%aa%=!
echo !a!>a.txt
goto 1
:2
for /f %%i in (a.txt) do (
	set jg=%%i
	set jg1=!jg:~0,%tt%!
	set jg2=!jg:~1,%tt%!
	if !jg1! gtr !ttt! (echo !jg1!) else (echo !jg2!
))
pause&del a.txt
复制代码

cjiabing

投机取巧，但并非每次都得

@echo off&setlocal enabledelayedexpansion
:d
set ddr=!random!
echo 原始随机数：!ddr!
set ddd=!ddr:-4,1!
if defined ddd if not "!ddr:~-1,1!"=="!ddr:~-2,1!" if not "!ddr:~-3,1!"=="!ddr:~-4,1!" if not "!ddr:~-1,1!"=="!ddr:~-3,1!" if not "!ddr:~-2,1!"=="!ddr:~-4,1!" if not "!ddr:~-2,1!"=="!ddr:~-3,1!" if not "!ddr:~-1,1!"=="!ddr:~-4,1!" echo 新生随机数：!ddr:~-1,1!!ddr:~-2,1!!ddr:~-3,1!!ddr:~-4,1!||goto d
pause
goto d
复制代码

edmond

@echo off
setlocal enabledelayedexpansion
:start
set n=1
:loop
set/a a1=!random!%%9
set/a a2=!random!%%9
set/a a3=!random!%%9
set/a a4=!random!%%9
if !a1!==!a2! (goto loop)
if !a2!==!a3! (goto loop)
if !a3!==!a4! (goto loop)
if !a1!==!a4! (goto loop)
if !a1!==!a3! (goto loop)
if !a2!==!a4! (goto loop)
if !a1!==0 (goto loop)
set res!n!=!a1!!a2!!a3!!a4!
set/a n+=1
if !n!==5 (goto ss)
goto loop
:ss
if !res1!==!res2! (goto start)
if !res2!==!res3! (goto start)
if !res3!==!res4! (goto start)
if !res1!==!res4! (goto start)
if !res1!==!res3! (goto start)
if !res2!==!res4! (goto start)
echo !res1!
echo !res2!
echo !res3!
echo !res4!
pause

lvsehuaxue

@echo off&setlocal enabledelayedexpansion
:a1
set n=0
:a
set /a var=%random% %% 9000 +1000
set v1=%var:~,1%
set v2=%var:~1,1%
set v3=%var:~2,1%
set v4=%var:~3,1%
if %v1% neq %v2% (
   if %v1% neq %v3% (
      if %v1% neq %v4% (
         if %v2% neq %v3% (
            if %v2% neq %v4% (
               if %v3% neq %v4% (
                  goto b
               ) else (
                 goto a
)))))) 
:b
set /a n+=1
set var%n%=%var%
if %n% lss 4 goto a
if %var1% neq %var2% (
   if %var1% neq %var3% (
      if %var1% neq %var4% (
         if %var2% neq %var3% (
            if %var2% neq %var4% (
               if %var3% neq %var4% (
                  goto c
                 ) else (
                 goto a1
))))))
:c
echo %var1%
echo %var2%
echo %var3%
echo %var4%
pause
复制代码

lvsehuaxue

@echo off
:a1
set n=0
:a
set /a var=%random% %% 9000 +1000
set v1=%var:~,1%
set v2=%var:~1,1%
set v3=%var:~2,1%
set v4=%var:~3,1%
if %v1%==%v2% goto a
if %v1%==%v3% goto a
if %v1%==%v4% goto a
if %v2%==%v3% goto a
if %v2%==%v4% goto a
if %v3%==%v4% goto a
set /a n+=1
set var%n%=%var%
if %n% lss 4 goto a
if %var1%==%var2% pause&goto a1
if %var1%==%var3% pause&goto a1
if %var1%==%var4% pause&goto a1
if %var2%==%var3% pause&goto a1
if %var2%==%var4% pause&goto a1
if %var3%==%var4% pause&goto a1
echo %var1%
echo %var2%
echo %var3%
echo %var4%
pause
复制代码

jixun66

@echo off
call :n r1
call :n r2
call :n r3
call :n r4
if not %r1%==%r2% if not %r2%==%r3% if not %r3%==%r4% goto fin
%0
:n
set /a %1=%random%%%9+1
goto :eof
:fin
echo %r1%%r2%%r3%%r4%
pause>nul
%0
复制代码

虽然麻烦了点……但是电脑运行的速度足够在一秒之内算出来了吧。

[ 本帖最后由 jixun66 于 2010-10-26 01:03 编辑 ]

skuny

@echo off
setlocal enabledelayedexpansion
set str=0123456789
for /l %%i in (1 1 20) do (
for /l %%i in (1 1 11) do (
  set /a a=!random! %% 9
  call set str=!a!%%str:!a!=%%
)
set str0=!str:~-4,1!
if !str0!==0 (echo !str:~-5,4!) else echo !str:~-4,4!
)
pause
复制代码

用楼主的 代码 扩展一下哈哈

ithinkican

内容………

mac007cn

@echo off
set /a "x=%random%%%10000"
if %x% lss 1000 ( set /a "x+=1000" )
echo %x%
复制代码

caruko

大概是中规中矩的办法吧...

@echo off
setlocal enabledelayedexpansion
set str=1234567890
set n=9
for /l %%a in (1 1 4) do (
	set /a rd=!random!%%!n!
	call set n%%a=%%str:~!rd!,1%%
	call set str=%%str:!n%%a!=%%
	set /a n=!n!-1
)
echo %n1%%n2%%n3%%n4%
复制代码

mac007cn

关于楼主这个题目，目前为止（竟然3年多了）几乎没有人做到楼主的第2个要求，正如楼主在10楼所说，“对于多个随机数，没有进行重复性判断（尽管这种几率很小）”。我想，如果把这个题目的要求1改一下，生成100个3位数或者10个2位数，这样重复的几率就很大了，必须考虑判断重复性。

下面是俺写的一段关于判断重复性的代码：

set "AllNum="
:LOOP
产生一个满足要求1的随机数num的部分代码略
REM 判断重复性
if not defined AllNum (
	set "AllNum=%num%"
	set /a n=1
	goto :LOOP
)
set "temp=%AllNum%"
set "temp=!temp:%num%=!
REM 如果%AllNum%去掉%num%前后是同一个字符串,
REM 则说明%num%与先前产生的随机数不重复。
if "%temp%"=="%AllNum%" (
	set "AllNum=%AllNum%,%num%"
	set /a n+=1
	if !n! geq 4 goto :LIST
)
goto :LOOP

:LIST
echo %AllNum%
复制代码

[ 本帖最后由 mac007cn 于 2011-1-13 10:04 编辑 ]

stuqx

稍等一下   正在修改   有问题

[ 本帖最后由 stuqx 于 2011-1-13 18:13 编辑 ]

common

用了最笨的方法，但可以实现功能
为什么我总是想不到简单的方法，是我对命令还不够熟悉吗？

@echo off
setlocal enabledelayedexpansion
:sat
set num=%random%
if %num% lss 1000 goto :sat
if %num% gtr 9999 goto :sat
set a=%num:~0,1%
set b=%num:~1,1%
set c=%num:~2,1%
set d=%num:~3,1%
echo !a!
echo !b!
echo !c!
echo !d!
if !a! == !b! goto :sat
if !a! == !c! goto :sat
if !a! == !d! goto :sat
if !b! == !c! goto :sat
if !b! == !d! goto :sat
if !c! == !d! goto :sat
echo %num%
pause
复制代码

scarcr

嗯，首先，我遇到了一个麻烦，从昨天晚上6点弄个现在，7个小时，学到了许多也没有解决。
我在运行 call set %%var:%a%=%%这种类型的嵌套变量的时候是注定要跳错进入死循环的。
自我无奈之后，坛子里有这种句式的代码我也运行了六七套，全部失败。
看来，非战之罪。所以，我还是把我写的代码交上来吧，大家看看，有错帮我找出来啊。谢谢。

我在想我用的盗版xp还真的是恶心人啊，就是贪ghost方便了，结果系统驱动也没有装好，运行ghost总有意外的惊喜，
不过我是有正版的xp序列号的，还是professional，不过这年头装原版xp是有自残倾向的，太慢了，又太费劲了。

15楼的这段的'set #'这里是什么意思，什么效果，理解不能呢。
for /f "tokens=2 delims=#=" %%i in ('set #') do echo %%i

这段实现了题目的全部要求，生成四个四位不同的不同的随机数。
第二个for循环我手动输入数测试了一下，没有问题，这个程序理论上可以生成所有的四位不同的四位数，只是会越来越慢
只要改一下!m! equ 4这里，还有第二个for循环的( 1 1 4 )这里，把4改成别的数，可以获得想要位数的四位不同随机数，
如果使用变量，可以由键盘输入需要数目的随机数，这样题目的要求就扩展了。
我认为我完成了。累死了。

@echo off&setlocal enabledelayedexpansion
:A
if !m! equ 4 (pause&goto :eof)
set /a nu=%random%%%9000+1000&set a=%nu%
for /l %%i in (1,1,3) do (
    set "b=!a:~,1!"&&set "c=!a:~1!"
    call set "b=%%a:!b!=%%"
    if !b! equ !c! (set a=!c!) else (goto A)
    )
for /l %%i in (1,1,4) do (
    if "!#%%i!"=="" (
        set #%%i=!nu!&&echo !#%%i!&&set /a m+=1&&goto A
        ) else if !#%%i! equ !nu! (goto A))
复制代码

获得经验有二，
当你无法取得成功时，可以去看看成功人士的例子，也许会柳暗花明又一村。
第二个for循环的第一个if判断里应该使用&&而不是使用&，避免出现命令运行不完整的现象，嗯，我这里出现了，所以改成现在这个样子。