Great Common Divisor & Least Common Multiple(最大公约数和最小公倍数)
Function ZDGYS(ByVal m As Long, ByVal n As Long) As Long 'Great Common DivisorZDGYS = mWhile n > 0m = ZDGYS Mod nZDGYS = nn = mWendEnd Function
Function ZXGBS(ByVal m As Long, ByVal n As Long) As