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
希望对你能有所帮助。
内容全部来源于网络收集，如有侵权，请联系网站删除！