我校一年级共有10个班，数据需要做以下处理：
1.每个学生每科在班中的名次及在全年级的名次
数据结构为
姓名 班级 语文 语文班级名次 语文年级名次 数学 数学班级名次 数学年级名次 英语 物理 化学 总分等

2.每班每科前在全年级前50、100、150....名所占有的人数
生成结构为：
班级 语文 数学 英语 物理 化学
1-50名 51 52 50 53 51 注（因第50名有多人）
01 6 8 4 3 7
02 5 4 7 5 6
...........
10
51-100 01 102 104 103 100 106
02

*计算语文名次(班级)
Index On 班级+Str(-语文,4) To yw.Idx
lcClass='..'
Scan
If 班级!=lcClass
lcClass=班级
lnScore=-100
lnIndex=0
EndIf
If 语文!=lnScore
lnScore=语文
lnIndex=lnIndex+1
lnIndexClass=lnIndex
EndIf
Replace 语文名次班 With lnIndexClass
EndScan

*计算语文名次(年级)
Index On -语文 To yw.Idx
lnIndex=0
lnScore=-100
Scan
If 语文!=lnScore
lnScore=语文
lnIndex=lnIndex+1
lnIndexGrade=lnIndex
EndIf
Replace 语文名次年 With lnIndexGrade
EndScan

我需要这样名次统计：1，2，2，4....，以上程序应如何修改

我已试过，结果是1，1，2，2，2，3...

*计算语文名次(班级)
Index On 班级+Str(-语文,4) To yw.Idx
lcClass='..'
Scan
If 班级!=lcClass
lcClass=班级
lnScore=-100
lnIndex=0
EndIf
lnIndex=lnIndex+1
If 语文!=lnScore
lnScore=语文
lnIndexClass=lnIndex
EndIf
Replace 语文名次班 With lnIndexClass
EndScan

*计算语文名次(年级)
Index On -语文 To yw.Idx
lnIndex=0
lnScore=-100
Scan
lnIndex=lnIndex+1
If 语文!=lnScore
lnScore=语文
lnIndexGrade=lnIndex
EndIf
Replace 语文名次年 With lnIndexGrade
EndScan

你好！非常感谢
在运行计算语文名次(年级)没有问题，
但运行计算语文名次(班级)却出现：找不到变量lnIndex，找不到变量lnScore，找不到变量lnIndexClass