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 Su