请问VB怎么用辗转相减法求两个自然数M，N的最大公约数和最小公倍数？

Question

与辗转相除法很类似的啊。
Private Sub Command1_Click()
m = Val(inputbox("第一个数：")): n = Val(inputbox("第二个数："))
If n > m Then
    t = m: m = n: n = t
End If
r = m - n
Do While r > 0
    If n < r Then
        t = n: n = r: r = t
    End If
    m = n: n = r: r = m - n   
Loop
Print n
End Sub

Answer 1

请问那个最小公倍数又怎么求呢？
谢谢3Q

Answer 2

最小公倍数 = m * n / 最大公约数

Answer 3

最大公约数不是求出来了吗？！
辗转相减法只是求最大公约数的方法！

Answer 4

是呀！
但是这里要求是同样用辗转相减法求最小公倍数也？？

Answer 5

哦我知道了笨蛋呵呵！
谢谢了各位