最大公约数算法说明:

用辗转相除法求两自然数m,n的最大公约数

1）首先，对于已知两数m,n，比较并使得m>n
2）m除以n得余数r;
3）若r=0,则n为求得的最大公约数，算法结束，否则执行步骤（4）
4）m←n  n ← r 再重复执行（2）
如：10与5
分析步骤： m=10 n=5
                   r=m mod n=0
                  所以ｎ（ｎ＝５）为最大公约数
如２４与９
分析步骤：m=２４ n=９
                   r=m mod n=６
　　　　　r≠0  m=9 n=6
                  r=m mod n=3
                  r≠0  m=6 n=3
                 r=m mod n=0
               所以n(n=3)为最大公约数

1、最大公约数算法

Sub 最大公约数()
m = InputBox("输入第一个自然数")
n = InputBox("输入第二个自然数")
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
    MsgBox ("最大公约数为" & n)
End Sub

2、最小公倍数算法

Sub 最小公倍数()
m = InputBox("输入第一个自然数")
n = InputBox("输入第二个自然数")
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
   MsgBox ("最小公倍数为" & nm / n)
End Sub

3、求最大公约数和最小公倍数

Sub 最大公约数()
m = InputBox("输入第一个自然数")
n = InputBox("输入第二个自然数")
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
    MsgBox ("最大公约数为" & n)
MsgBox ("最小公倍数为" & nm / n)
End Sub