我正在寻找有关 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
任何建议将不胜感激。
最佳答案
为了完整起见,这是一个无循环版本:
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 的形状包含连续的奇数,并且很好地组合在一起形成完美的正方形。这种漂亮的图案为古希腊人所熟知。
关于VBA 奇数/模数,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/42427911/