程序代码：

USE 表1
cfldlist='语文,数学,英语,物理,化学,生物'
n=ALINES(afld,cfldlist,1+4,',')
DIMENSION awc(n,2)
SCAN
    FOR i=1 TO n
        awc(m.i,1)=afld(m.i)+"位次"
        cmc=afld(m.i)+"名次"
        awc(m.i,2)=&cmc
    ENDFOR
    =ASORT(awc,2,0,1)    
    k=1
    pre=awc(1,2)
    FOR i=1 TO n
        if awc(i,2)#pre
            k=i
            pre=awc(i,2)
        endif    
        replace &awc(i,1) WITH k
    endfor    
ENDSCAN
BROWSE