UC知道请教高手QBASIC 程序！！
来源：百度知道 编辑：UC知道 时间：2024/05/04 21:47:28
题目：求100~999中的水仙花数，所谓水仙花数是一个三位数，它的各位数字的立方和等于该数，例如153是一个水仙花数，因为153=1^3+5^3+3^3求出所有的水仙花数
x=100
DO
a=x MOD 10
n=x\10
b=n MOD 10
c=n\10
IF x=a^3+b^3+c^3 THEN
PRINT x
END IF
x=x+1
LOOP UNTIL x>999
END
我把以上程序打到QBASIC 程序中却没有任何显示，这是为什么？请问我哪里错了！？
我试过了，为什么还是无显示数字？？？回答好的一定追加分！！！!
x=100
DO
a=x MOD 10
n=x\10
b=n MOD 10
c=n\10
IF x=a^3+b^3+c^3 THEN
PRINT x
END IF
x=x+1
LOOP UNTIL x>999
END
我把以上程序打到QBASIC 程序中却没有任何显示，这是为什么？请问我哪里错了！？
我试过了，为什么还是无显示数字？？？回答好的一定追加分！！！!
你把最后那句end去掉
你的程序运行结果是
153
370
371
407
我之前是在vb里运行的，你把程序改成这样一定没问题，我试过了,加一句z = a ^ 3 + b ^ 3 + c ^ 3
CLS
x = 100
DO
a = x MOD 10
n = x \ 10
b = n MOD 10
c = n \ 10
z = a ^ 3 + b ^ 3 + c ^ 3
IF z = x THEN
PRINT x
end if
x = x + 1
LOOP UNTIL x > 999
END