您的位置:首页 > 其它

Great Common Divisor & Least Common Multiple(最大公约数和最小公倍数)

2006-10-19 23:16 543 查看
Function ZDGYS(ByVal m As Long, ByVal n As Long) As Long 'Great Common Divisor
ZDGYS = m
While n > 0
m = ZDGYS Mod n
ZDGYS = n
n = m
Wend
End Function

Function ZXGBS(ByVal m As Long, ByVal n As Long) As Long 'Least Common Multiple
ZXGBS = m * n / ZDGYS(m, n)
End Function
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: