Private Sub command1_click()Dim m As Integer,n As IntegerDim a As Integer,b As IntegerDim r As Integerm = InputBox("输入m")n = InputBox("输入n")a = mb = nDor = Abs(m - n)m = nn = rLoop While m nPrint ...