我正在寻找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
Run Code Online (Sandbox Code Playgroud)
任何建议将不胜感激.
为了完整起见,这是一个无循环版本:
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
Run Code Online (Sandbox Code Playgroud)
根据这张图片:
L形状包含连续的奇数,很好地配合在一起形成完美的正方形.这种漂亮的图案是古希腊人所熟知的.
归档时间: |
|
查看次数: |
3756 次 |
最近记录: |