Foxpro 快速进行考试成绩均分计算

在中小学教育教学阶段，年级经常使用年级前N名各班所占人数和班级前N名的平均分来进行衡量和比较各班级之间的教学质量差异，通俗一点讲：
年级前N名在各班所占的人数叫指标，
班级前N名的各科均分叫做量化均分，
利用这种数据计算和横向比较，从一个方向判断不同班级的教学差异。

set safe off
set talk off
clos all

accept "请输入要处理的表名：" to ys		&&目标表	
accept "请输入要保存的表名：" to jg		&&另存表

use &ys
input '一级指标=' to x1
input '二级指标=' to x2
input '三级指标=' to x3
sort to &jg on aa/d
*输入指标数*

use &jg
calcu max(bj),min(bj) to maxbj,minbj
 
for i=minbj to maxbj
	if i<10
		a='0'+alltri(str(i))
	else
		a=alltri(str(i))
	endif
	use &jg
	sort to &a on aa/d for bj=i
	close all
endfor
*把成绩分到各个班级* 


for i=minbj to maxbj
	if i<10
		a='0'+alltri(str(i))
	else
		a=alltri(str(i))
	endif
	use &jg

	coun for bj=i .and. aaxmc<=x1 to z1
	coun for bj=i .and. aaxmc<=x2 to z2 
	coun for bj=i .and. aaxmc<=x3 to z3 
	use junfeng

	go i
	b1=zbs
	use &a
	if recc()>0
		go 1
	endif
	 
	aver next b1 yy,ss,ee,ww,hh,bb,zz,ll,dd,aa to a1,a2,a3,a4,a5,a6,a7,a8,a9,a10
	 
	use junfeng
	go i
	repl zb1 with z1
	repl zb2 with z2
	repl zb3 with z3

	replace yy with a1
	replace ss with a2
	replace ee with a3
	replace ww with a4
	replace hh with a5
	replace bb with a6
	replace zz with a7
	replace ll with a8
	replace dd with a9
	replace aa with a10

	close all
endfor

000