发布网友 发布时间:2022-04-22 18:04
共2个回答
热心网友 时间:2022-04-22 19:33
这个没考虑性能,简单粗暴,汗~热心网友 时间:2022-04-22 20:51
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