在29楼的基础上做了改进

CLOSE DATABASES ALL 
USE hz1 IN 0
nRecc=RECCOUNT()
CALCULATE Max(bj) TO nMax
CREATE CURSOR tt (bj c(2),lb c(20),rs n(4))
cField="班级 c(2)"
FOR i=1 TO INT(0.85/0.05) STEP 2
    SELECT Hz1
    CALCULATE MIN(Smzf) TO nMin FOR Smzfjm<=nRecc*0.05*i
    cField=cField+","+"F"+TRANSFORM(INT(nMin))+"分以上"+" n(4)"
    INSERT INTO tt ;
    SELECT PADL(bj,2,"0"),"F"+TRANSFORM(INT(nMin))+"以上" ,;
        SUM(IIF(smzfjm<=INT(nRecc*0.05*i),1,0)) ; 
        FROM hz1 GROUP BY bj
ENDFOR
CREATE CURSOR ttt (&cField)
SELECT rs FROM tt ORDER BY bj INTO ARRAY Array_Rs
DIMENSION Array_Rs[ALEN(Array_Rs,1)+nMax,1]
FOR i=1 TO nMax
    Num_ber=(i-1)*10+1
    =AINS(Array_Rs,Num_ber)
    Array_Rs[Num_ber,1]=PADL(i,2,"0")
ENDFOR
DIMENSION Array_Rs[nMax,FCOUNT("ttt")]
INSERT INTO ttt FROM ARRAY Array_Rs
SELECT ttt
BROWSE 

[此贴子已经被作者于2018-9-7 18:48编辑过]

向你学习，谢谢！

[此贴子已经被作者于2018-9-8 06:55编辑过]

多谢

学习了，马上要用到，留个足迹

*!*    根据比例得到最低分
CLOSE TABLES ALL
CLEAR
SET TALK OFF
USE hz1
INDEX on -smzf TAG zfa
COUNT TO zrs FOR smzf>0
DIMENSION  gs(2,9)
FOR i=1 TO 9
gs(1,i)=0.05+0.1*(i-1)
j=0
    SCAN
    j=j+1
    IF j=INT(zrs*gs(1,i))
    gs(2,i)=smzf
    exit
    ENDIF
    ENDSCAN
ENDFOR
DELETE TAG zfa
CLOSE TABLES ALL

*!*根据最低分建立分段表
fdb0="create table fdb(班级  N(3,0)"
FOR i=1 TO 9
fdb0=fdb0+",≧"+ALLTRIM(STR(gs(2,i)))+" N(3,0)"
ENDFOR
fdb0=fdb0+")"
&fdb0
CLOSE TABLES ALL

*!*    在原始表中确定班级的个数放到数组bjs0
DIMENSION bjs(1,1)
SELECT bj DISTINCT FROM hz1 INTO ARRAY bjs
ns=ALEN(bjs,1)
DIMENSION bjs0(ns+1,1)
ACOPY(bjs,bjs0)
bjs0(ns+1,1)=0
CLOSE TABLES ALL

*!*    分数段统计表
DIMENSION fdsz(10)
USE hz1
FOR u=1 TO ns+1
IF u<ns+1
SET FILTER TO bj=bjs0(u)
ELSE
set filter to
ENDIF
fdsz(1)=bjs0(u)
FOR v=2 TO 10
COUNT TO fdsz(v) FOR smzf>=gs(2,v-1)
ENDFOR
INSERT INTO fdb FROM array fdsz
ENDFOR
set filter TO
SELECT fdb
BROWSE
CLOSE TABLES all

[此贴子已经被作者于2018-10-4 09:37编辑过]

把一个复杂的问题，分解成若干个简单的问题（四个）
然后逐个来解决它。这是我经常采用的，也是行之有效的方法

宁愿程序代码写得长一点，也要增加注释语句，以提高程序的可阅读性。

能够解决问题的办法就叫［好办法］

很好