[数值计算] 如何能在批处理中加上优良及格和不及格呢？

 
@echo off&set /a var=0,num=91,act=0
:act
  set /a act+=1
  :lis
    set /a w=%random%%%%num%+10
    if %w% lss 60 set /a var+=1
    if %var% gtr 3 if %w% lss 60 goto lis
    set /a str=57+var
    if %str% equ %1 set num=50&goto lis
    rem setw(及格,不及格,是不是自己改的分数)
    (
     if %w% lss 60 set w=%w%       我同胞,不及格
     if %w% geq 80 set w=%w%   优秀
     if %w% equ 100 set w=%w% 是不是自己改的分数
     )
    echo 同学%act%  的成绩 %w%
if %act% lss 9 goto :act
pause &exit
复制代码

@echo off&set /a var=0,num=91
for /l %%a in (1 1 9) do (
  call :lis %%a
  call echo %%a 号同学   成绩是 %%w%%
)
pause>nul
:lis
  set /a w=%random%%%%num%+10
  if %w% lss 60 set /a var+=1
  if %var% gtr 3 if %w% lss 60 goto lis
  set /a str=57+var
  if %str% equ %1 set num=50&goto lis
  if %w% lss 60 (set w=%w%  不及格) else (
  if %w% lss 70 (set w=%w%  及格) else (
  if %w% lss 80 (set w=%w%  中)  else (
  if %w% lss 90 (set w=%w%  良) else (
  set w=%w%  优))))
goto :eof
复制代码