判断水仙花数和计算出1到N的奇数和
Desktop.zip
(30.15 KB)
我擦,怎么不能发截图?1.判断水仙花数:
x=""
FOR n=100 to 999
x1=int(n/100)
x2=int(mod(n,100)/10)
x3=mod(n,10)
IF x1^3+x2^3+x3^3=n
thisform.label2.caption="该数是水仙花数"
ELSE
thisform.label2.caption="该数不是水仙花数"
ENDIF
ENDFOR
但是每次显示都是该数不是水仙花数,即使我输的是水仙花数。
2.帮忙写一下1到N的奇数和的代码