VF程序设计:一个三位数的个、十、百位数的立方和等于这个数本身,求这个数。哪位高手会的,帮帮忙。谢谢

来源:百度知道 编辑:UC知道 时间:2024/05/28 02:42:17
老师要求用VF程序来求解,明天就要交。我确实不会,哪位会的高手帮帮忙!!!!!!谢谢~~~~~~~~~~~~

答案为: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