文件名称：VB 求多个数的最大公约数.rar
文件大小：3KB
文件格式：RAR
更新时间：2022-07-30 11:26:32
VB源码-算法相关
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 '返回这两个数的最大公约数 End Function
【文件预览】：
srcfans.com
----求多个数的最大公约数()
--------E212.vbp(684B)
--------Form1.frm(5KB)
--------E212.vbw(51B)
--------MSSCCPRJ.SCC(189B)