高手来帮我看一下这个程序出错的地方

显示全部楼层 · 2010-5-22 23:27:18

我想编一个测试电脑计算速度的软件，但总是死机，
Dim a As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
N = 0
While a1
N = N + 1
Wend
Text1 = N
End Sub
Private Sub Timer1_Timer()
a = a + 1
Text2 = a
End Sub

千问 · 2010-5-22 23:27:18

你这里While a1成死循环了，可不死机啊。点击按钮，启动计时器，开始第一次循环，一秒钟后，a加1，变为1，不循环。的那是下一个1秒，a加1，成为2，while循环有开始了，所以，你这里会存在一个死循环。解决也好办，就是在Private Sub Timer1_Timer()a = a + 1Text2 = atimer1.enabled=false‘把计时器停下来就可以了。End Sub