Sqr函数停止vba代码(?!)

Question

很抱歉我问了这么愚蠢的问题，但我不能理解，因为它太简单了。

当我尝试以下代码时，Excel 2010停止运行：

Sub Delay()

Dim j As Double
Dim i As Double
Dim k As Double

    For i = 1 To 1000000
        j = Sqr(i)
        k = 0
        Do While k < 1000000
            j = Sqr(k)
            k = k + 1
        Loop
    Next

End Sub

这个潜水艇什么也不做，只是花时间。那么，为什么excel没有回应呢？

VBA不能这么弱。我失去了什么？

谢谢。

Answer 1

您在那里所做的是导致excel进入循环1,000,000次迭代。您正在尝试做的事情可能最好由这个post来回答