我编了一段小程序，我弄不了
%%在面是我的一段小程序，为什么总是死循环啊？我找不到毛病了
use "D:\My prg\ssqjxsj_dat"
Dimension gaArrayOne(8)
GO TOP
DO while .NOT.EOF()
nHMLC=0 &&计数器清0
cZC=''
cHOME=''
COPY TO ARRAY gaArrayOne
FOR i=6 to 2 STEP -1
FOR J=i-1 TO 1 STEP -1
cZC=ALLTRIM(STR(gaArrayOne(i)-gaArrayOne(J)))
IF .NOT.(cZC $ cHOME)
nHMLC=nHMLC+1
cHOME=cHOME+' '+ cZC
? nHMLC,cHOME
DISP
ELSE
ENDIF
ENDFOR
ENDFOR
SKIP
ENDDO
