@echo off
setlocal enableDelayedExpansion
set arr=0123456789
::len为arr的长度
set len=10
set /p num=需要组合的字数：
set /a num-=1,len-=1
for /l %%a in (0 1 %num%) do (
    if 0==%%a (set start=0) else (set /a start=%%a-1&set start=%%!start!)
    set "do=!do! for /l %%%%a in (!start!,1,%len%) do"
    set "exp=!exp!^!arr:~%%%%a,1^!"
)
%do% echo %exp%
pause
endlocal
复制代码

@echo off&setlocal enabledelayedexpansion
set /p a=请输入组合元素：
set "str=%a%"
set /a max=8190,min=0
for /l %%a in (1,1,14) do (
     set /a "num=(max+min)/2"
     for /f "delims=" %%b in ("!num!") do if "!str:~%%b!" equ "" (set /a max=num) else set /a min=num
)
if "!str:~%num%!" neq "" set /a num+=1
:1
set /p b=您需要组合的字数：
set d=0
set "m="
:2
set /a c=!random!%%%num%
set m=%m%!a:~%c%,1!
set /a d+=1
if %d%==%b% goto :3
goto :2
:3
echo %m%
pause
goto :1
复制代码

@echo off
setlocal enableDelayedExpansion
set arr=bathome
set num=5
set /p num=需要组合的字数：
set var=%arr%fedcba9876543210
set /a len=0x%var:~15,1%
set /a numx=num-1, lenx=len-1
for /l %%a in (0 1 %numx%) do (
    if 0==%%a (set start=0) else (set /a start=%%a-1&set start=%%!start!)
    set "do=!do! for /l %%%%a in (!start!,1,%lenx%) do "
    set "exp=!exp!^!arr:~%%%%a,1^!"
)
%do% echo %exp%
pause
endlocal
复制代码