程序代码：

USE 学生成绩排名
IF TYPE([名次])=[U]
   ALTER TABLE 学生成绩排名 ADD 名次 I
ENDIF
INDEX ON -平均成绩 TAG CJ
GO TOP
Y=1 && 分数最高者名次（mc）为1
X=平均成绩
SCAN 
    REPLACE 名次 WITH IIF(平均成绩=X,Y,Y+TEMP.MC)
    SELECT COUNT(名次) AS MC FROM 学生成绩排名 WHERE 名次=Y INTO CURSOR TEMP
    SELECT 学生成绩排名
    Y=名次
    X=平均成绩
ENDSCAN
*SET ORDER TO
BROWSE
USE IN 学生成绩排名
USE IN TEMP