用VB程序编写：问题，求最大公约数和最小公约

应该是最小公倍数吧??

Private Sub Form_Click()
Dim n1%, m1%, m%, n%, r%
n1 = InputBox("输入n1")
m1 = InputBox("输入m1")
If m1 > n1 Then
m = m1: n = 1
Else
m = n1: n = m1
End If
Do
r = m Mod n
If r = 0 Then Exit Do
m = n
n = r
Loop
Print m1; ","; n1; "的最大公约数"; n
Print "最小公倍数=", m1 * n1 / n

End Sub