几个VFP程序实例

				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