Private Sub command1_click()
Dim m As Integer, n As Integer
Dim a As Integer, b As Integer
Dim r As Integer
m = InputBox("输入m")
n = InputBox("输入n")
a = m
b = n
Do
r = Abs(m - n)
m = n
n = r
Loop While m <> n
Print a; "和"; b; "最大公约数是"; r
Print a; "和"; b; "最小公倍数是"; a * b / r
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024