神马品牌网上海那家脑科医院最好:求助高一QBASIC的问题！！急！！
来源：百度文库 编辑：神马品牌网 时间：2024/05/03 23:39:57
关于循环结构的问题！
根据题意编写程序！
求100～999之间的所有水仙花数，并统计个数。水仙花数是指一个三位数，其中各数字的立方和就等于该数本身。
根据题意编写程序！
求100～999之间的所有水仙花数，并统计个数。水仙花数是指一个三位数，其中各数字的立方和就等于该数本身。
CLS
DIM a AS INTEGER, b AS INTEGER, c AS INTEGER
FOR i = 100 TO 999
a = i \ 100
b = (i MOD 100) \ 10
c = i MOD 10
tmp = a ^ 3 + b ^ 3 + c ^ 3
IF i = tmp THEN
PRINT i;
n = n + 1
END IF
NEXT i
PRINT
PRINT "n=";n
END
已获测试通过。
QQ:276083082
cls
for i=1 to 9
for j=0 to 9
for k=0 to 9
if i^3+j^3+k^3=100*i+10*j+k then
print i;j;k
end if
next k
next j
next i
end
'水仙花数VB算法
For I = 100 To 999
If Mid(I, 1, 1) ^ 3 + Mid(I, 2, 1) ^ 3 + Mid(I, 3, 1) ^ 3 = I Then Print I & Chr(13) & Chr(10)
Next
'chr(13)&chr(10)是回车换行