这是我写的一些东西，在后应该在text2中显示出来可是；一次运行还能在屏幕上停留一瞬间在以后就在屏幕上闪了一下，就自动退出运行环境了。
Private Sub Command1_Click()
Dim i, xi, N
While N <= 10
If (N >= 5 And N <= 10) Then
For i = 0 To N
xi = (5 / N)
Print xi
Next
End If
N = N + 1
Wend
End
Text2.Text = Command1.Value
End Sub
各位高手帮忙看看这是怎么回事？我估计数据应该是太多了显示不出来了，可是要想显示出来怎么做才行？我是新手麻烦说的详细一些。谢谢