宏显示500500而不是1000

Question

根据Walkenbach的"Excel VBA编程Dummis"(第153页),这个宏应该显示1000.

但是当我运行时它在MsgBox中说500500 ..嗯？

Sub AddNumbers()
    Dim Total As Double
    Dim Cnt As Integer
    Total = 0
    For Cnt = 1 To 1000
        Total = Total + Cnt
    Next Cnt
    MsgBox Total
End Sub

Answer 1

当你开始时,很容易混淆!

您可能会误认为Total是Cnt变量,您正在输出Total(求和结果)

作者在代码之前解释了相同的内容

When the loop finishes, a MsgBox displays the summed integers