运行项目euler#1的代码时,vba中的堆栈空间不足

Question

Option Explicit
Sub peuler1()
Dim x As Variant
Dim y As Variant
y = 0
For x = 1 To 999
    If x Mod 3 = 0 Or x Mod 5 = 0 Then
    y = y + x
    End If
Next x
Call peuler1
End Sub

这为什么需要这么长时间？它似乎并不太复杂.

Answer 1

I believe you are in a recursive loop.

Remove Call peuler1