DIMENSION FS(3) &&分数
FS(1)='YSYZF'
FS(2)='ZHZF'
FS(3)='ZF'
DIMENSION MC(3) &&名次
MC(1)='YSYMC'
MC(2)='ZHMC'
MC(3)='BMC'

FOR I=1 TO 3 STEP 1
DO PX(FS(I),MC(I)) &&在此处出现了“无效的下标引用”错误提示，该如何解决，请指教一二，谢谢！！
ENDFOR

&&&&&&&&&&&&&&&&&&&&&&&&&&自定义函数
FUNCTION PX(FS1,MC1)

INDEX ON &FS1 TAG '&FS1' DESC
SET ORDER TO TAG '&FS1'
GO TOP

P=1
Q=0
REPLACE &MC1 WITH P
TEMP=&FS1
SKIP
DO WHILE NOT EOF()
IF TEMP<>&FS1
REPLACE &MC1 WITH P+Q+1
Q=0
ELSE
REPLACE &MC1 WITH P
Q=Q+1
ENDIF
SKIP
TEMP=&FS1
P=P+1
ENDDO

DELETE TAG '&FS1'

ENDFUNC

我想你用ＦＯＲ循环的起始值没设好，虽然只循环３次，但最后Ｉ的值不是你想的１＼２＼３，而是２３４
但你只定义到３，所以下标出界，请将Ｉ＝１改为Ｉ＝０试试