Question

用VFO编写一个程序。要求：输出100至999之间所有的水仙花数。

水仙花数：任意输入一个3位正整数，然后判断其是否是水仙花数。所谓水仙花数是指一个3位数，其各位数字立方和等于该数本身。例如：153就是水仙花数，153=13+53+33。

另外，判断任意一个数是否为水仙花数的编程如下：
SET TALK OFF
CLEAR
INPUT"请输入任意的一个三位数：" TO A
X=INT(A/100) &&求A数百位上的数字存放至X
Y=INT(A/10)-X*10 &&求A数十位上的数字存放至Y
Z=A-X*100-Y*10 &&求A数个位上的数字存放至Z
IF X*X*X+Y*Y*Y+Z*Z*Z==A
?"您输入的数是水仙花数。"
ELSE
?"您输入的数不是水仙花数。"
ENDIF
SET TALK ON
RETURN

Answer 1

x=thisform.text1. value
if not (x>=100 and x<=999 and x=int(x))
messagebox ("输入错误, 请重新输入")
else
a=int(x/100)
b=int((x%100)/10)
c=x%10
if x=a^3+b^3+c^3
thisform.label2.caption="该数是水仙花数！"
else
thisform.label2.caption="该数不是水仙花数！"
endif
endif

追问

这个不是VFO里面的程序吧。。。

追答

是的，表单里面的