VF程序求三位数中的所有水仙花数(即指一个三位数,其各位数字立方和等于该数本身)
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/29 00:51:08
![VF程序求三位数中的所有水仙花数(即指一个三位数,其各位数字立方和等于该数本身)](/uploads/image/z/336518-62-8.jpg?t=VF%E7%A8%8B%E5%BA%8F%E6%B1%82%E4%B8%89%E4%BD%8D%E6%95%B0%E4%B8%AD%E7%9A%84%E6%89%80%E6%9C%89%E6%B0%B4%E4%BB%99%E8%8A%B1%E6%95%B0%EF%BC%88%E5%8D%B3%E6%8C%87%E4%B8%80%E4%B8%AA%E4%B8%89%E4%BD%8D%E6%95%B0%2C%E5%85%B6%E5%90%84%E4%BD%8D%E6%95%B0%E5%AD%97%E7%AB%8B%E6%96%B9%E5%92%8C%E7%AD%89%E4%BA%8E%E8%AF%A5%E6%95%B0%E6%9C%AC%E8%BA%AB%EF%BC%89)
VF程序求三位数中的所有水仙花数(即指一个三位数,其各位数字立方和等于该数本身)
VF程序求三位数中的所有水仙花数(即指一个三位数,其各位数字立方和等于该数本身)
VF程序求三位数中的所有水仙花数(即指一个三位数,其各位数字立方和等于该数本身)
*** Daffodil Number
CLOSE ALL
CLEAR ALL
CLEAR
FOR nLoop_01 = 100 TO 999
IF (VAL(SUBSTR(ALLTRIM(STR(nLoop_01)),1,1)) ^ 3) + ;
(VAL(SUBSTR(ALLTRIM(STR(nLoop_01)),2,1)) ^ 3) + ;
(VAL(SUBSTR(ALLTRIM(STR(nLoop_01)),3,1)) ^ 3) = nLoop_01
nLoop_01
ENDIF
NEXT
RETURN