.

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

.