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

用BASIC语言编程:找出100～999中的水仙花数.所谓水仙花数,是指一个三位数中它的歌位数字的立方和等于该数.例如153=1^3+5^3+3^3

求各位大仙啦~~~

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 next i rem 大概的流程式是这样, 指令是根据采用不同的 basic 而有所差异 rem 刚好, 上网来到这里 rem 以上, 希望能有所帮助 rem 我是Alex, 在台北(台湾)

楼上台湾同胞啊，欢迎 楼主怎么不用vb，basic会的人不多吧

b