作业帮 > 数学 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/11/05 19:38:28
用辗转相除法求两个自然数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
希望对你能有所帮助.