vb.net求两个自然数的最大公约数和最小公倍数辗转相乘法.

Question

vb.net 求两个自然数的最大公约数和最小公倍数 辗转相乘法.

Answer 1

最大公约数
do until a=b
if a>b then
a=a-b
elseif b>a then
b=b-a
end if
loop
msgbox (a)
最小公倍数
c = a
22:
If a Mod b = 0 Or b Mod a = 0 Then
If a > b Then
MsgBox(a)
Else
MsgBox(b)
End If
Else
a = a + c
GoTo 22
End If
辗转相乘法是什么玩意?