VB中求最大公约数和最小公倍数（块IF语句编写）

Private Sub Form_Click()
m1 = InputBox("输入m")
n1 = InputBox("输入n")
If m1 > n1 Then '为了求最小公倍数，增加m,n变量
m = m1: n = n1
Else
m = n1: n = m1
End If 'm>n
r = m Mod n
Do While r <> 0
m = n
n = r
r = m Mod n
Loop
Print m1; ","; n1; "的最大约数为"; n
Print "最小公倍数=", m1 * n1 / n
End Sub

展转相除求最大公约,两数相乘除以最大公约就是最小公倍数.手机客户端不好写你可以去网上搜展转相除求最大公约数～