Question

用VB编写程序求两个数m、n的最大公约数和最小公倍数，该怎么做？

Answer 1

a=inputbox("a")
b=inoutbox("b")
if a>b then
tmpa=b
tmpb=a
else
tmpa=a
tmpb=b
end if
'最小公倍数
for i=tmpa to 1 step -1
if int(a/i)=a/i and int(b/i)=b/i then
zdgys=i
exit for
end if
doevents
next
zxgbs=tmpb
do until int(zxgbs/a)=zxgbs/a and int(zxgbs/b)=zxgbs/b
zxgbs=zxgbs+1
doevents
loop

'得到zdgys和zxgbs

这是最直观的方法,不是最好的方法.