请问qb大侠 求水仙花数的程序哪儿错了？

n=n+1是干什么用�

for x=1 to 9
for y=0 to 9
for z=0 to 9
if x*x*x+y*y*y+z*z*z=x*100+y*10+z then print x*100+y*10+z,"成立"
next z,y,x

加一个END IF

三个变量不能同时运行试一下只用一个变量
cls
for i= 100 to 1000
if i=i mod 10 +((i\10) mod 10)^3 +(i\100)^3 then print i
next i
end
试一下这样行不行.

错了啊加一个endif不会有用�

100~999的水仙花数
FOR A = 1 TO 9
FOR B = 0 TO 9
FOR C = 0 TO 9
D=A*100+B*10+C
IF A^3+B^3+C^3=D THEN PRINT D
NEXT C
NEXT B
NEXT A
END

水仙数不能用“^”
比如0^0 结果等于1
所以只能0*0
好象是这么回事

我新�

dim a as integer,b as integer,c as integer,i as integer
for i = 100 to 999
 a=int(i/100)
 b=int ((i-100*a)/10)
 c=i-int(i/10)*10
 if =a*a*a+b*b*b+c*c*c then print i,
next i
print 
end

不能用next x,y,z
要用
next x
next y
next z
不用想省�

15楼说的对 我也是这么想�

13楼新手还这么厉害

13、15楼，你们说的不对，这种写法是正确的
我试了，楼主的if语句是对的，楼主的错误可能是因为其他原因吧（比如马虎写错了）

应该输入
cls
input n
bai=n\100
shi=n mod 100\10
ge=n mod 100 mod 10
后面比较简单，自己去想

FOR n100TO 999
i=INT（n/100）
j=INT（(n-i*100)/10)
k=n MOD 10
IF i^3+j^3+k^3=n THEN PRINT n
NEXT n
END
这程序对不对？？？？