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

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/29 00:42:54
辗转相减法求最大公约数的vb代码
x){ok66=tkZlZʒ^|AMR>i lȰ#(,$U!4I9?771/09'39[C WV3)BCžO[>_Ɏ';Vh_eX%<w`Q왦`PԚk.JdP X|Sb. 9 E pq0*2U>poq:# Jhd.%5

辗转相减法求最大公约数的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