用辗转相除法求两个自然数m,n的最大公约数和最小公倍数的vb程序编写

用辗转相除法求两个自然数m,n的最大公约数和最小公倍数的vb程序编写

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
希望对你能有所帮助.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息