编程100~999中的水仙花数。水仙花数指一个三位数，它的每位数字立方之和等于该数。

答案为：153，370，371，407共4个
代码如下
FOR i=100 to 999
a=ALLTRIM(STR(i))
FOR j=1 to 3
k=ALLTRIM(STR(j))
c&k=SUBSTR(a,j,1)
ENDFOR
c=VAL(c1)^3+VAL(c2)^3+VAL(c3)^3
IF c=i
MESSAGEBOX("这个数为："+alltrim(STR(i)))
ENDIF
ENDFOR