主题：神哪救救我吧～～～～～关于输出水仙花数的问题
HUOLILILY
[专家分：0] 发布于 2005-05-12 21:07:00
[em15]
我们要回答一个问题：输出一个三位数，它的各位数字立方和等于它本身，怎样写出ＱＢ的程序？急件，要立刻救救我哇～～～
回复列表 （共23个回复）
11 楼
lsqhuman [专家分：0] 发布于 2005-05-14 16:32:00
笨蛋,这都不会写.看．
for x=1 to 9:for y=0 to 9:for z=0 to 9
s=x*x*x+y*y*y+z*z*z
if x*100+y*10+z=s then print x;y;z:k=k+1
next x,y,z
end
12 楼
moz [专家分：37620] 发布于 2005-05-15 11:08:00
狂晕
我今天才知道 next 还可以这样用
不过楼上的顺序好像搞错了吧？
记得以后别乱骂别人笨蛋了，
就算是我我也只敢骂我老婆是笨蛋，
而且还得换来洗三天碗的代价喔。
13 楼
萧山·湘凌子 [专家分：10] 发布于 2005-05-15 18:16:00
多谢davidwo17指教，感激不尽
14 楼
陈贺ＱＢ [专家分：140] 发布于 2005-05-16 21:37:00
for i=100 to 999
x=int (i/100)
y=int (i-x)/10
z=i-x-y
if x*100+y*10+z=x*x*x+y*y*y+z*z*z then
print "是水鲜花＂
ＥＮＤ
15 楼
cleverboy [专家分：80] 发布于 2005-05-28 10:32:00
从100~999之间找出水仙花数.
DEFINT I-K,N
N=100
DO WHILE N<=999
I=N\100
J=(N-I*1000)\10
K=N-I*100-J*10
IF I*I*I+J*J*J+K*K*K=N THEN
PRINT N;
N=N+1
LOOP
END
一试一下吧，看看结果如何？
16 楼
cleverboy [专家分：80] 发布于 2005-05-28 10:33:00
徨
17 楼
li010450 [专家分：70] 发布于 2005-05-30 19:34:00
输出所有3位数的水仙花数:
CLS
FOR i = 100 TO 999
b1 = i \ 100
b2 = (i - 100 * b1) \ 10
b3 = i - 100 * b1 - 10 * b2
IF i = (b1 * b1 * b1 + b2 * b2 * b2 + b3 * b3 * b3) THEN PRINT i;
NEXT i
END
18 楼
sevil [专家分：0] 发布于 2005-06-02 10:23:00
楼主我也想给你交朋友呀
qq:247581901
19 楼
sevil [专家分：0] 发布于 2005-06-02 10:25:00
楼主我想知道，哪一个是正确的呀，
我咋看不懂呀
交个朋友吧
qq:247581901
20 楼
多阳天使 [专家分：0] 发布于 2005-06-02 10:26:00
for i = 100 to 999
a=int (i?100)
b=(i-a*1000)\10
c=i mdo 10
if i =a^3+b^3+c^3 then print i ;
next i
end
我来回复
您所在位置：