用BASIC语言编程:找出100～999中的水仙花数,在线等,急~~~!!!

for i = 100 to 999

rem 将变数i 转变成 字串$
no$ = str$(i)

rem 取出 no$, 中间字串 第1, 第2 , 第3 字串, 并转成变数x,y,z
x = val( mid$(no$,1,1) )
y = val( mid$(no$,2,1) )
z = val( mid$(no$,3,1) )

if i = x^3 + y^3 + z^3
rem 符合条件
print i
endif

next i

rem 以上更正
rem 我是Alex, 在台北(台湾)

rem 以下是使用 pureBasic 语言

; 求解 水仙花数
For i = 100 To 999
no.s = Str(i)
x.i = Val(Mid(no.s,1,1))
y.i = Val(Mid(no.s,2,1))
z.i = Val(Mid(no.s,3,1))

If i = Pow(x,3) + Pow(y,3) + Pow(z,3)
Debug i
EndIf
Next i

rem 解出 153, 370, 371, 407 4组数字

for i = 100 to 999

rem 将变数i 转变成 字串$
no$ = str$(i)

rem 取出 no$, 左边第1, 第2 , 第3 字串, 并转成变数x,y,z
x = val( left$(no$,1) )
y = val( left$(no$,2) )
z = val( left$(no$,3) )

if i = x^3 + y^3 + z^3
rem 符合条件
print i
endif
<