neorobin

@echo off & setlocal enableDelayedExpansion
for %%a in (A B C D) do for %%b in (A B C D) do (
  (set %%a%%a=稳定)&if %%a lss %%b (set %%a%%b=退步&set %%b%%a=进步)
)
for /l %%s in (55 1 100) do (
  set "#%%s=D"
  if %%s geq 70 set "#%%s=C"
  if %%s geq 80 set "#%%s=B"
  if %%s gtr 90 set "#%%s=A"
)
for %%c in (A B C D) do (
  for /l %%i in (1 1 100) do (
    set /a score=!random! %% 46+55
    for %%s in (!score!) do for %%t in (!#%%s!) do (
      set /a %%t+=1
      set /p=%%c-%%i:%%s:!%%c%%t! <nul
    )
  )
  echo.
)
for %%c in (A B C D) do set /p=%%c: !%%c!   <nul
pause
复制代码

[ 本帖最后由 neorobin 于 2010-6-30 11:19 编辑 ]

neorobin

@echo off & setlocal enableDelayedExpansion
for %%a in (A B C D) do for %%b in (A B C D) do (
  (set %%a%%a=稳定)&if %%a lss %%b (set %%a%%b=退步&set %%b%%a=进步)
)
for /l %%s in (55 1 100) do (
  set "#%%s=D"
  if %%s geq 70 set "#%%s=C"
  if %%s geq 80 set "#%%s=B"
  if %%s gtr 90 set "#%%s=A"
)
for %%c in (A B C D) do for /l %%i in (1 1 100) do (
    set /a score=!random! %% 46 + 55
    for %%s in (!score!) do for %%t in (!#%%s!) do (
      set /a %%t+=1
      set $!random!%%c-%%i=%%c-%%i:%%s:!%%c%%t!
    )
  )
for /f "tokens=2 delims==" %%i in ('set $') do set /p=%%i <nul
echo. & for %%c in (A B C D) do set /p=%%c: !%%c!   <nul
pause
复制代码