程序代码：

CLOSE DATABASES 

SELECT 班级,coun(*) as zrs,00000 as q50zf ,000.00 as pjf from cj grou by 班级 into table bjk
SELECT bjk
GOTO top
SCAN 
  cbjmc=bjk.班级
  SELECT * from cj where 班级=cbjmc orde by 总分 desc into cursor tmp readw
  SELECT tmp
  sum(总分) to _sn for RECNO()<51
  USE 
  SELECT bjk
  REPLACE q50zf with _sn
  SELECT bjk
ENDSCAN 
SELECT bjk 
REPLACE pjf with q50zf /50 all
BROWSE