unknown_world

@echo off

::设置四个变量a,b,c,d，产生四个1位的随机数组全四位数

:sui1
set /a i=%random% %% 10
if %i% neq 0 (set /a a=%i%)  else goto sui1

:sui2
set /a i=%random% %% 10
if %i% neq %a% (set /a b=%i%)  else goto sui2


:sui3
set /a i=%random% %% 10
if %i% neq %a% if %i% neq %b% (set /a c=%i%)   else goto sui3

:sui4
set /a i=%random% %% 10
if %i% neq %a% if %i% neq %b% if %i% neq %c% (set /a d=%i%)  else goto sui4

echo %a%%b%%c%%d%

pause >nul
复制代码

unknown_world

对53楼做下改进

@echo off
::设置四个变量a,b,c,d，产生四个1位的随机数组全四位数

set /a i=%random% %% 9+1
set a=%i%

:sui2
set /a i=%random% %% 10
if %i% neq %a% (set /a b=%i%)  else goto sui2

:sui3
set /a i=%random% %% 10
if %i% neq %a% if %i% neq %b% (set /a c=%i%)   else goto sui3

:sui4
set /a i=%random% %% 10
if %i% neq %a% if %i% neq %b% if %i% neq %c% (set /a d=%i%)  else goto sui4

echo %a%%b%%c%%d%
pause >nul
复制代码