问题描述: 辗转相减法求最大公约数的vb代码 1个回答 分类:综合 2014-11-24 问题解答: 我来补答 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 Su 展开全文阅读