VBA奇数/ Mod

K. *_* L. 4 vba mod

我正在寻找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)

任何建议将不胜感激.

Joh*_*man 7

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

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形状包含连续的奇数,很好地配合在一起形成完美的正方形.这种漂亮的图案是古希腊人所熟知的.

  • 我试图弄清楚这个等式,真的是美丽的东西:) (2认同)
  • 非常有启发性,帽子. (2认同)