主题：程序运行问题

这个程序为什么不能运行？一运行foxtable就死机了

Dim Sum As Long
Dim i As Long
For i = 1 To 999999
    Sum = Sum + 1

Output.Show(Sum)
Next