VB 求多个数的最大公约数.rar

VB 求多个数的最大公约数,这应该是个比较简单的数学算法例子,求指定多个数的最大公约数,源码中请详细代码。部分代码如下: Private Function big(ByVal m%, ByVal n%) As Integer '自定义函数 If m < n Then t = m: m = n: n = t Do r = m Mod n '辗转相除法求最大公约数 If r = 0 Then Exit Do '找到最大公约数后即退出 m = n n = r Loop big = n