作业帮VF程序求三位数中的所有水仙花数（即指一个三位数,其各位数字立方和等于该数本身）
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/24 14:51:56
x) s{g|
Ov}>Ygó96ly{拮@{:n~dGÓ un{:yvϦ|:'^_
6g͋]I* k l̿ZZZ
.ii)9
~IE`qg `WG (1f)**(+XZZe=4 }4CC4C<}5@l&MM C ``
H.#t#t qst\#B א ?<;P M,
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