例7-9.prg

来自「几个VFP程序实例」· PRG 代码 · 共 13 行

NOTE 例7-9
* 找出100~999之间的所有“水仙花数”。所谓“水仙花数”是一个三位数，其各位数字的立方
*和等于该数本身（如153=1^3+5^3+3^3）
CLEAR
FOR I=100 TO 999
    S=STR(I,3)
    A=VAL(LEFT(S,1))
    B=VAL(SUBS(S,2,1))
    C=VAL(RIGHT(S,1))
    IF I=A^3+B^3+C^3
       ? I
    ENDIF
ENDFOR