求助各位QB编程高手！！ — 编程爱好者社区

沙发

chentx123 [专家分：0] 发布于 2006-12-06 14:01:00

谁要是告诉我，真是太感谢了。

板凳

moz [专家分：37620] 发布于 2006-12-06 16:15:00

deflng a-z
function GongBei(a,b)
if a>b then swap a,b
for i=a to a*b step a
if i mod b =0 then exit for
next
GongBei=i
end function

3 楼

chentx123 [专家分：0] 发布于 2006-12-06 17:47:00

有没有别的答案啊，2楼的好像不行。
此外再次谢谢啊！

4 楼

moz [专家分：37620] 发布于 2006-12-06 21:43:00

你会不会用？你怎么知道不行？简直开玩笑。

5 楼

guofarui [专家分：620] 发布于 2006-12-07 08:41:00

QB都忘了一干二净了，，寒呀，。

6 楼

Lovely哆啦 [专家分：1360] 发布于 2007-03-27 12:34:00

CLS
INPUT N
INPUT N1
INPUT N2
x=n1*n2
FOR I = 1 TO N - 2
x=x*n2
DO
R = N1 MOD N2
N1 = N2: N2 = R
LOOP WHILE R <> 0
INPUT N2
NEXT I
PRINT x/N1
END

您尚未登录，请登录后再回复。点此登录或注册

主题：求助各位QB编程高手！！