辗转相减法求最大公约数的vb代码

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/16 07:42:48

辗转相减法求最大公约数的vb代码
辗转相减法求最大公约数的vb代码

辗转相减法求最大公约数的vb代码
Private Sub Command1_Click()
m = InputBox("输入第一个自然数")
n = InputBox("输入第二个自然数")
If m < n Then t = m: m = n: n = t
r = m Mod n
Do While (r 0)
m = n
n = r
r = m Mod n
Loop
MsgBox ("最大公约数为" & n)
End Sub