.
SCAN
A=TJ.专业代号 YX=0 &&记录优秀人数 HG=0 &&记录合格人数 BHG=0 &&记录不合格人数 SELE 1
SCAN FOR XSCJ.专业代号=A DO CASE CASE合成成绩>=85 YX=YX+1 CASE合成成绩>=60 HG=HG+1 OTHERWISE BHG=BHG+1 ENDCASE ENDSCAN SELE 2
REPLACE 优秀人数WITH YX REPLACE 合格人数 WITH HG REPLACE 不合格人数 WITH BHG ENDSCAN USE
.
.
SET TALK ON
.