DoEvents错误:溢出堆栈空间?

Question

正确代码：
    Dim i As Long
    For i = 1 To 1000000
        DoEvents
    Next你的DoEvents应该放到循环里面。

Answer 1

Dim i As Integer '最大 32767

Answer 2

Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间
Long（长整型）变量存储为 32 位（4 个字节）有符号的数值形式，其范围从 -2,147,483,648 到 2,147,483,647

Answer 3

用Long型声明你的i。因为没有声明i的类型时，它是Variant，是根据
最初的赋值来决定类型，你的初值是1，那i就是Integer，如果大于65536就是
Long。所以还是用明确的类型来声明你的变量。