请楼主参考：
https://bbs.bccn.net/viewthread.php?tid=407301&page=1#pid2295230

SET ESCAPE OFF
CLEAR
LOCAL str1
input '请输入一个正整数:' to n
CLEAR
WAIT WINDOW '按 ESC 退出...' nowait
DIMENSION arr1(n)
STORE 9 TO arr1
DO whil .t.
    str1=prg1(@arr1)
    IF str1==REPLICATE("0",ALEN(arr1))
        EXIT
    ELSE
        ?str1
    ENDIF
    IF INKEY()=27
        EXIT
    ENDIF
ENDDO
WAIT CLEAR
RETURN

FUNCTION prg1(arr1)
    LOCAL i1,i2,i3,str1
    i1=ALEN(arr1)
    str1=''
    FOR i2=1 TO i1
        str1=str1+TRANSFORM(arr1[i2])
    ENDFOR
    IF str1<>REPLICATE("0",i1)
        IF arr1[i1]=0
            arr1[i1]=9
            FOR i3=i1-1 TO 1 STEP  -1
                IF arr1[i3]=0
                    arr1[i3]=9
                ELSE
                    arr1[i3]=arr1[i3]-1
                    EXIT
                ENDIF
            ENDFOR
        ELSE
            arr1[i1]=arr1[i1]-1
        ENDIF
    ENDIF
    RETURN str1
ENDFUNC

做事要尊重客观事实，编程也如此。记得我在一个帖子里曾经说过vfp的数值范围问题。任何软件处理数据都有其范围限制，不可能无限长度。所以，出这道题考你的人本身就不懂这些。

厉害..虽然有点地方我看不明白，明天我再慢慢看，原来真的可以实现的..只要找到规律