vba 求最小公倍数

在VBA中，求两个数的最小公倍数（Least Common Multiple，LCM）可以通过编程实现。最小公倍数是指能被两个或多个整数共同整除的最小正整数。计算最小公倍数的一种常见方法是先求出这两个数的最大公约数（Greatest Common Divisor，GCD），然后利用两数之积等于它们的最大公约数与最小公倍数的乘积这一性质来求出最小公倍数。

以下是VBA中计算两个数的最小公倍数的一个示例代码：

Function GCD(a As Long, b As Long) As Long
    Dim temp As Long
    Do While b <> 0
        temp = a Mod b
        a = b
        b = temp
    Loop
    GCD = a
End Function

Function LCM(a As Long, b As Long) As Long
    If a = 0 Or b = 0 Then
        LCM = 0
    Else
        LCM = (a * b) / GCD(a, b)
    End If
End Function

在上述代码中，`GCD` 函数通过辗转相除法计算两个数的最大公约数，`LCM` 函数则利用最大公约数来计算最小公倍数。如果任何一个输入数值为0，则最小公倍数为0。