VB中求最大公约数和最小公倍数(块IF语句编写)

Question

编简单一些，

Answer 1

Private
Sub
Form_Click()
m1
=
InputBox("输入m")
n1
=
InputBox("输入n")
If
m1
>
n1
Then
'为了求最小公倍数，增加m,n变量
m
=
m1:
n
=
n1
Else
m
=
n1:
n
=
m1
End
If
'm>n
r
=
m
Mod
n
Do
While
r
<>
0
m
=
n
n
=
r
r
=
m
Mod
n
Loop
Print
m1;
",";
n1;
"的最大约数为";
n
Print
"最小公倍数=",
m1
*
n1
/
n
End
Sub