怎么利用程序整出还有名次的表啊

就是可以做成这样的

* VFP6代码
CLOSE DATABASES ALL
SET SAFETY OFF
SET COLLATE TO "MACHINE"
cStr="班级,总分,语文,数学,英语,物理,化学,生物,历史,地理,政治"
=ALINES(azd,CHRTRAN(cStr,",",CHR(10)+CHR(13)))
* 创建表结构
cField="班级 C(2),总分 N(7,2)"
FOR i=3 TO ALEN(azd,1)
    cField=cField+","+azd[i]+" N(6,2)"
ENDFOR
CREATE CURSOR 平均分 (&cfield)
SELECT distinct 班级 FROM 学校 INTO ARRAY abj
LOCAL X[ALEN(abj,1),11],Y[ALEN(abj,1),11],Z[ALEN(abj,1),11]
STORE 0 TO X,Y,Z

* 班级各科全部平均分
SELECT 学校
INDEX on 班级 TAG px
FOR i=1 TO ALEN(abj,1)
    X[i,1]=abj[i]
    FOR ii=2 TO ALEN(azd,1)
        rs=0
        ncj=0
        SCAN FOR 班级=abj[i]
            ncj=ncj+&azd[ii]
            rs=rs+1
        ENDSCAN
        X[i,ii]=ROUND(ncj/rs,2)
    ENDFOR
ENDFOR
* 班级各科前20名（最后有相同的分数可能超过20人）平均分
FOR i=ALEN(abj,1) TO 1 STEP -1
    Y[i,1]=abj[i]
    FOR ii=2 TO ALEN(azd,1)
        INDEX on 班级-STR(&azd[ii],7,1) TAG px DESCENDING
        rs=0
        ncj=0
        nfs=0
        SCAN FOR 班级=abj[i]
            IF &azd[ii]!=nfs AND rs>=20
                EXIT
            ENDIF  
            ncj=ncj+&azd[ii]
            rs=rs+1
            nfs=&azd[ii]
        ENDSCAN
        Y[i,ii]=ROUND(ncj/rs,2)
    ENDFOR
ENDFOR
* 最后平均分
FOR i=1 TO ALEN(abj,1)
    Z[i,1]=abj[i]
    FOR ii=2 TO  ALEN(azd,1)
        Z[i,ii]=X[i,ii]*0.6+Y[i,ii]*0.4
    ENDFOR
ENDFOR
INSERT INTO 平均分 FROM ARRAY Z
SELECT 平均分
BROWSE
CLOSE DATABASES all
ERASE *.IDX


在这个程序上X数组中存放的是全班平均分，Ｙ中存放的优秀生平均分，Ｚ中存放的综合平均分
怎么利用Ｚ中的综合平均分对　１,２,１５,１６班各科排名显示到上面的名次里面

应为我们这1,2,15,16班是一个系列的班都是重点班，要拿在一起比

全校名次那个表出来就是这样的结构啊……
我从数组里面挑出来以后怎么排名啊，可以看看代码吗

Spm="班级,语文全班平均,语文优秀生平均,语文综合平均,语文名次,数学全班平均,数学优秀生平均,数学综合平均,数学名次,英语全班平均,英语优秀生平均,英语综合平均,英语名次,物理全班平均,物理优秀生平均,物理综合平均,物理名次,化学全班平均,化学优秀生平均,化学综合平均,化学名次,生物全班平均,生物优秀生平均,生物综合平均,生物名次,历史全班平均,历史优秀生平均,历史综合平均,历史名次,地理全班平均,地理优秀生平均,地理综合平均,地理名次,政治全班平均,政治优秀生平均,政治综合平均,政治名次"




这个问题是怎么回事啊

这是怎么回事啊