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

名次的规则是什么，不要让大家猜谜啊

就是可以做成这样的

* 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班是一个系列的班都是重点班，要拿在一起比

你可以把相应班级对应的科目挑出来进行排名次啊

问题要一次性说清楚，不说清楚别人如何知道啊。

你原来的表结构设计的也有问题，学校.DBF结构应该是：

班级
考号
姓名
科目
科目编号
成绩

这样才方便数据处理

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