Use 七年级
*(1)根据语文成绩排名次
Index On -语文 To Temp.Idx
Go Top
xx=1
yy=1
zz=语文
Do While !Eof()
If 语文!=zz
zz=语文
xx=yy
EndIf
Replace 语文名次 With xx
yy=yy+1
Skip
EndDo

(那们大侠给我分析一下，这个程序，就这一段看不明白：Do While !Eof()
If 语文!=zz
zz=语文
xx=yy
EndIf
如何让分数一样的时候，名次并列，如：1名，1名，3名........)

该程序实现的功能：分数不一样时，名次修改，并记录下来；分数一样时，名次不变。若有同名次的，下一个分数跳过一个名次，实现了1、1、3的排名要求。

比我自己写的要简洁

成绩排名，用select-sql语句，一句就可以了。

xx=1
 zz=语文
 SCAN
 If 语文!=zz
 zz=语文
 xx=xx+1
 EndIf
 Replace 语文名次 With xx
 EndScan