excel - 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 次迭代。这篇文章可能会最好地回答您要尝试做的事情