请教10000到99999的对称数程序代码，新人求助

CREATE CURSOR dcheng(对称 N(6))

FOR j=10000 TO 99999
    IF Symmetry(j)=.t.
       INSERT INTO dcheng(对称) VALUES(j)
    ENDIF
ENDFOR
BROWSE

*!* 如果对称返回 .T.
FUNCTION Symmetry(eExpression)
 LOCAL nLen,cStr,i
 eExpression = TRANSFORM(eExpression)
 nLen = LEN(eExpression)
 cStr = ""
 FOR i =1 TO nLen
         cStr = cStr + SUBSTR(eExpression,nLen - i + 1,1)      
 ENDFOR
 RETURN IIF(cStr = eExpression,.t.,.f.)
ENDFUNC

一看就是学生作业

限5位数可以直接比较 1、5 位和 2、4

谢谢你！

CREATE CURSOR dcheng(数据 N(6),对称 N(6))
FOR i=10000 TO 99999
    cstr=""
    FOR ii=1 TO 5
        cstr=SUBSTR(STR(i,5),ii,1)+cstr
    ENDFOR
    INSERT INTO dcheng VALUES(i,VAL(cstr))
ENDFOR
BROWSE FOR 数据=对称