@echo off
setlocal enabledelayedexpansion
for %%a in (A B C D) do for /l %%b in (1,1,100) do set #%%a-!random!-%%a-%%b=0
for /l %%a in (1,1,10) do (
  for /f "tokens=3,4 delims=-=" %%b in ('set #') do (
   for %%d in (%%b-%%c) do (
    set /a m+=1
    set /a n=m%%10+1
    if !n! equ %%a set x%%a=%%d !x%%a!
)
) 
)
for /l %%j in (1,1,10) do (
  echo 第%%j班:
  echo !x%%j!
)
pause
复制代码

@echo off
setlocal enabledelayedexpansion
set spec=#ABCD
set /a m=1
:main
 for /l %%a in (1,1,100) do (set i_%%a=%%a)
 set /a lp=1,range=100
 :lp
    set /a tmpx=%random% %% range + 1
    set /a class=!i_%tmpx%! %% 10 + 1
    set class_%class%=!class_%class%! !spec:~%m%,1!%lp%
    set /a i_%tmpx%=i_%range%
 if %lp% lss 100 (set /a lp+=1,range-=1 &goto :lp)
if %m% lss 4 (set /a m+=1 &goto :main)
for /l %%i in (1,1,10) do (echo class %%i = !class_%%i!)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for %%t in (A B C D) do (
        for /l %%i in (1001 1 1100) do set "#%%t!random:~-2!%%i=%%i"
        for /f "tokens=2 delims==" %%n in ('set #%%t') do set "U=!U!%%t-%%n "
        set U=!U:-1=-!
        set "U=!U:B-060 =!      "& set "U=!U:C-049 =!      "
        for /l %%s in (0 60 540) do ( set /a V=%%s/60+1
                for %%c in (x-!V!) do set "%%c=!%%c!!U:~%%s,60!"
        )
        set "U="
)
set "X-10=!X-10:      =!!X-3:~60,6!!X-8:~120,6!"
set X-3=!X-3:~0,60!B-060 !X-3:~66!& set "X-8=!X-8:~0,120!C-049 !X-8:~126!"
set X&pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1001,1,1100) do set s=%%i&set var=!var!#!s:~-3!
    for %%i in (A B C D) do (
        set %%i=!var!&set _%%i=100
        for /l %%j in (1 1 10) do set %%i.%%j=10
  )
set B.2=9&set C.8=9&set _B=99&set _C=99
set X3= B-60&set X8= C-49&set B=!B:#060=!&set C=!C:#049=!
for %%a in (A B C D) do (
    for /l %%i in (1 1 10) do (
    for /l %%j in (1 1 !%%a.%%i!) do (
    set /a n=!random!%%_%%a*4
    for %%b in ("!n!") do for %%c in ("!%%a:~%%~b,4!") do (
    for /f "tokens=* delims=#0" %%d in (%%c) do (
        set %%a=!%%a:%%~c=! 
        set /a _%%a-=1
        set x%%i=!x%%i! %%a-%%d
)))))
for /l %%i in (1,1,10) do echo %%i班:&echo!x%%i!
pause
复制代码

@echo off
setlocal enableDelayedExpansion
set amount=100
set types=A B C D
set slices=10
set special=B-60-3 C-49-8

for /l %%a in (1 1 %amount%) do set arr=!arr! #-%%a
for %%i in (%types%) do (
    set "%%i=!arr:#=%%i! " 后面特意加了空格
    set /a amount_%%i=amount
    for /l %%a in (1 1 %slices%) do set /a num_%%i_%%a = amount / slices
)

for %%a in (%special%) do (
    for /f "tokens=1,2,3 delims=-" %%i in ("%%a") do (
        set %%i=!%%i: %%i-%%j = !
        set /a amount_%%i -= 1
        set /a num_%%i_%%k -= 1
    )
)

for %%i in (%types%) do (
    set #=!%%i!
    set /a left = amount_%%i
    for /l %%a in (1 1 %slices%) do (
        for /l %%n in (1 1 !num_%%i_%%a!) do (
            set /a ran = !random! %% left + 1
            set $=!#!
            for /l %%x in (1 1 !ran!) do set $=!$:* =!
            for /f %%x in ("!$!") do set item=%%x
            set slices_%%a=!slices_%%a! !item!
            for %%x in (!item!) do set #=!#: %%x = !
            set /a left -= 1
        )
    )
)

for %%a in (%special%) do (
    for /f "tokens=1,2,3 delims=-" %%i in ("%%a") do set slices_%%k=!slices_%%k! %%i-%%j
)

for /l %%a in (1 1 %slices%) do echo class %%a:& echo !slices_%%a!& echo;

echo;
pause
exit /b

:shuffle arrName len cnt //洗牌
复制代码