terse

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1001,1,1100) do set s=%%i&set var=!var!#!s:~-3!&set str=!str!ABCD
    for %%i in (A B C D) do set %%i=!var!&set _%%i=100
    for /l %%i in (1,1,55) do set ce=!ce!0
        set ce=!ce!DDDDDDDDDDDDDDDCCCCCCCCCCBBBBBBBBBBBAAAAAAAAAA
        for %%i in (A B C D) do set l=&for %%j in (A B C D) do (
           if "%%i" equ "%%j" (set _%%i_%%j=稳定) else (
        if "%%i" lss "%%j" (set _%%i_%%j=退步) else set _%%i_%%j=进步
  ))
   set #A=优&set #B=高&set #C=中&set #D=差
   for /l %%i in (400,-1,1) do (
       set /a n=!random!%%%%i,_n=n+1
       for %%a in ("!n!") do (
       for %%b in ("!str:~%%~a,1!") do (
       set /a m=!random!%%_%%~b*4,_%%~b-=1,i=!random!%%46+55
       for %%c in ("!m!") do (
       for %%d in ("!%%~b:~%%~c,4!") do (
       for /f "tokens=* delims=#0" %%e in ("%%~d") do (
       for %%f in ("!_n!") do set str=!str:~,%%~a!!str:~%%~f!
       set %%~b=!%%~b:%%~d=!
       for %%f in ("!i!") do for %%g in ("!ce:~%%~f,1!") do (
       echo %%~b-%%e: %%~f !_%%~b_%%~g!&set/a !#%%~g!+=1
       )))))))
       for %%a in (优 高 中 差) do echo %%a等生：!%%a!名
pause
复制代码