用程序，在学生科目表中，把科目的最高成绩找出来，如下程序，实际运行时，如数据量较大，程序运行缓慢，甚至要达到1小时以上，请教大神，如何优化？
select 1
Shu = RECCOUNT()
for i = 1 to Shu   
   go i
   XH = alltrim(学号)
   KCID = alltrim(课程ID)
   RDCJ = -10


   select 2
   locate for alltrim(学号) == XH and alltrim(课程ID) == KCID
   
      do while found()
           if isblank(成绩成绩)
              RDCJ = Max(RDCJ,-1)
          else
              RDCJ = Max(RDCJ,成绩)         
          endif
         continue
      enddo
  
   select 1

   repl 认定成绩 with alltrim(STR(RDCJ))

endfor