问题描述: 用vb设计一个求两个数最大公约数的函数过程 1个回答 分类:数学 2014-11-14 问题解答: 我来补答 Dim m As IntegerDim n As IntegerDim r As IntegerDim a As Integer,b As Integerm = InputBox("请输入其中的一个正整数")n = InputBox("请输入另一个正整数")a = mb = nr = a Mod bDo While r 0a = bb = rr = a Mod bLoopPrint m; "与"; n; "这两个正整数的最大公约数为:"; bEnd Su 展开全文阅读