VBA 奇数/模数

Question

我正在寻找有关 VBA 脚本的帮助。我一直在试图弄清楚如何使用 mod 功能。

这是我到目前为止所做的:

Function AddOddNumbersWithMod(nr)
    Dim i, sum
    sum = 0
    For i = (IF 1 MOD 2 = 0) to nr step 1
        sum = sum + i <-- (calculate all the odd numbers before nr)
    Next i
End Function

任何建议将不胜感激。

Answer 1

为了完整起见，这是一个无循环版本:

Function SumOfOdds(n As Long) As Long
    'returns sum 1 + 3 + 5 + ... of all odd numbers <= n
    SumOfOdds = Int((n + 1) / 2) ^ 2
End Function

基于这张图片:



类似 L 的形状包含连续的奇数，并且很好地组合在一起形成完美的正方形。这种漂亮的图案为古希腊人所熟知。