您的位置: 首页  >  作业答案  >  其他  >  VB程序,编写一个用辗转相除法,求俩自然数m、n的最大公约数和最小公倍数.

VB程序,编写一个用辗转相除法,求俩自然数m、n的最大公约数和最小公倍数.

分类: 作业答案 • 2021-12-28 11:29:05
问题描述：

VB程序,编写一个用辗转相除法,求俩自然数m、n的最大公约数和最小公倍数.
用DO……LOOP循环语句

答

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

相关推荐