代码如下：
m=inputBox("m=")
n=inputBox("n=")
nm=n*m
If m < n Then t = m: m = n: n = t
    r=m mod n
    Do While (r <> 0)                               
         m=n
         n=r
         r= m mod n
    Loop
Print "最大公约数=", n
Print "最小公倍数=", nm/n