现在中考结束了。6月成绩出来时，我是用循环解决的

  ****************
  *分数段统计
  ****************
  CLOSE DATABASES
  SET SAFETY off
  *---------------
  *设定统计范围
  SELECT 0
  USE fsdk
  ZAP
  FOR i=560 to 300 step -1  &&&  I 的二个起止数决定统计的范围，步长决定分数段大小
    APPEND BLANK
    REPLACE zf with i
  ENDFOR
  GO top
  *---------------
  *计算每一分的累计人数
  SELECT 0
  USE bmk
  SELECT fsdk
  SCAN
    SELECT bmk
    COUNT to nn for bmk.zf>=fsdk.zf
    SELECT fsdk
    REPLACE ljrs with nn
  ENDSCAN
  SELECT bmk
  USE
  *----------------
  *计算每一分的小计人数
  SELECT fsdk
  GO top
  REPLACE xjrs with ljrs
  sn=ljrs
  DO while not EOF()
    SKIP 1
    REPLACE xjrs with ljrs-sn
    sn=ljrs
  ENDDO
  *----------------
   REPORT FORM rep_fsd noeject noconsole prev

根据各种分段需要(1分，2分，5分，10分)的通用公式
*按报名点分段统计中考/高考成绩
proc   bmdfdtjzkcj

sET TALK Off
SET SAFE OFF
clear all

fsd='10'  
@10,10 SAY '请打入分段分数: ' GET fsd
READ
**分段分--
n=val(alltr(fsd))

cdir=GETDIR("D:","请选择<中考/高考>成绩分段统计人数的bmk0651数据库的目录")
CD (cdir)   
cdir=left(cdir,len(cdir)-1)

cd (cdir)  &&进入相应的目录
if !file('bmk0651.dbf')
wait "所选的bmk0651文件不存在，请退出重找！" window timeout 5  AT SROWS()/2,(SCOLS()/4)
clear
retu
else
use bmk0651
if vartype(xh)="U"
   WAIT "本库缺少xh或bmddm或tot1字段，请退出修改后再统计！" WINDOW TIMEOUT 5  AT SROWS()/2,(SCOLS()/4)

clear
retu

else


**--通用代码
select *,iif(mod(tot1,n)=0,ceil(tot1/n)*n,ceil(tot1/n)*n-n)as fs1,iif(mod(tot1,n)=0,ceil(tot1/n)*n+n-1,ceil(tot1/n)*n-1)as fs2 from bmk0651  into table tmp1

select bmk0651.*,tmp1.fs1,tmp1.fs2,str(tmp1.fs1,3)+"-"+str(tmp1.fs2,3) as 分段 from bmk0651,tmp1 where bmk0651.xh=tmp1.xh INTO table tmp2


select bmddm,分段,count(分段) as 人数 from tmp2 group by bmddm,分段 order by bmddm,分段  into table bmdfdtj
brow


WAIT "统计完毕，请核对库tmp1(分数分段库),tmp2库（临时库),bmdfdtj库（各报名点分段统计库) " WINDOW TIMEOUT 5  AT SROWS()/2,(SCOLS()/4)
endif
endif
CLEA
set talk on
set safety on



[ 本帖最后由 sylknb 于 2015-7-9 14:27 编辑 ]

又学到一个

高手，学习了，我用得着的知识