统计分数线上线求助:统计出按照分数段各科及总分各班各部上线人数。
统计分数线上线求助:统计出按照分数段各科及总分各班各部上线人数。
数据.rar
(173.77 KB)
原来使用的方法太麻烦,求简洁方法。
我原来使用的是,先算出 各班各科1,2,本上线,然后算部门上线。汇总。
程序代码:
use 理科 qq="01" @12,5 SAY "请输入班级:" get qq read if qq="00" DO 统计1部 endif bjmz=qq COUNT FOR 语文>=100 and bj=bjmz TO ywfsx1 COUNT FOR 语文>=88 AND 语文<100 and bj=bjmz TO ywfsx2 COUNT FOR 语文>=88 and bj=bjmz TO ywfsx COUNT FOR 数学>=93 and bj=bjmz TO sxfsx1 COUNT FOR 数学>=60 AND 数学<93 and bj=bjmz TO sxfsx2 COUNT FOR 数学>=60 and bj=bjmz TO sxfsx COUNT FOR 英语>=101 and bj=bjmz TO yyfsx1 COUNT FOR 英语>=66 AND 英语<101 and bj=bjmz TO yyfsx2 COUNT FOR 英语>=66 and bj=bjmz TO yyfsx COUNT FOR 物理>=67 and bj=bjmz TO wlfsx1 COUNT FOR 物理>=38 AND 物理<67 and bj=bjmz TO wlfsx2 COUNT FOR 物理>=38 and bj=bjmz TO wlfsx COUNT FOR 化学>=73 and bj=bjmz TO hxfsx1 COUNT FOR 化学>=48 AND 化学<73 and bj=bjmz TO hxfsx2 COUNT FOR 化学>=48 and bj=bjmz TO hxfsx COUNT FOR 生物>=71 and bj=bjmz TO swfsx1 COUNT FOR 生物>=49 AND 生物<71 and bj=bjmz TO swfsx2 COUNT FOR 生物>=49 and bj=bjmz TO swfsx COUNT FOR 总分>=487 and bj=bjmz TO zffsx1 COUNT FOR 总分>=359 AND 总分<487 and bj=bjmz TO zffsx2 COUNT FOR 总分>=359 and bj=bjmz TO zffsx use fsx repl 语文 with ywfsx for bj=bjmz repl 语文1 with ywfsx1 for bj=bjmz repl 语文2 with ywfsx2 for bj=bjmz repl 数学 with sxfsx for bj=bjmz repl 数学1 with sxfsx1 for bj=bjmz repl 数学2 with sxfsx2 for bj=bjmz repl 英语 with yyfsx for bj=bjmz repl 英语1 with yyfsx1 for bj=bjmz repl 英语2 with yyfsx2 for bj=bjmz repl 物理 with wlfsx for bj=bjmz repl 物理1 with wlfsx1 for bj=bjmz repl 物理2 with wlfsx2 for bj=bjmz repl 化学 with hxfsx for bj=bjmz repl 化学1 with hxfsx1 for bj=bjmz repl 化学2 with hxfsx2 for bj=bjmz repl 生物 with swfsx for bj=bjmz repl 生物1 with swfsx1 for bj=bjmz repl 生物2 with swfsx2 for bj=bjmz repl 总分 with zffsx for bj=bjmz repl 总分1 with zffsx1 for bj=bjmz repl 总分2 with zffsx2 for bj=bjmz do 上线入库