2+VF编程自定函数制作水仙花数
编写一个自定义函数,判断一个三位数是否为水仙花数,返回逻辑值.在主程序中输入一个三位数,输出其是否水仙花数的信息.提示:如果一个三位正整数等于它各位数字立方的和,则其为水仙花数.如:153=1(3)+5(3)+3(3)
把下面的代码存入一个 PRG 文件中，例如：ISSXH.PRG
PARAMETERS nNum
cNum=ALLTRIM(STR(nNum))
IF LEN(cNum)<>3
MESSAGEBOX("数据不是三位数，请重新赋值。")
RETURN .F.
ENDIF
S1=VAL(LEFT(cNum,1))
S2=VAL(SUBSTR(cNum,2,1))
S3=VAL(RIGHT(cNum,1))
IF S1*S1*S1+S2*S2*S2+S3*S3*S3=nNum
RETURN .T.
ELSE
RETURN .F.
ENDIF
?ISSXH(152) &&显示 .F.
?ISSXH(153) &&显示 .T.
如果运行下面的代码
FOR I=100 TO 999
IF ISSXH(I)
?I
ENDIF
NEXT
结果是：153,370,371,407