timer控件问题

Question

我现在用一个Timer1控件做进条，label1控件显示timer累加的数据
我在一个按钮下作一个循环,使timer控件有效.问题就是label1的值一直不变，各位有何办法
代码如下：
Private Sub Timer1_Timer()
    If Label1.Caption >= 99 Then
       Label1.Caption = "1"
    Else
       Label1.Caption = Trim(Val(Label1.Caption) + 1)
    End If
End Sub
Private Sub Command1_Click()
   Timer1.Enabled = True
  Label1.Caption = "1"
  For i = 0 To 1000
    For j = 0 To i
      '处理的事
    Next j
  Next i
   Timer1.Enabled = False
   Label1.Caption = ""
End Sub

Answer 1

Timer1 的 Interval 属性是否为 0 ，另外 Label1.Caption = Trim(Val(Label1.Caption) + 1) 这句可否写为 Label1.Caption = Val(Trim(Label1.Caption)) + 1

Answer 2

timer1.interval=?
你是想计算执行的时间吗？或者显示进度？感觉这样处理并不好。
如果一定要这样处理，那么 timer1.interval=1000
循环体内加一句 DoEvents
：）

Answer 3

楼上的大哥：
Timer1.Interval=1000
还是不行呀!

Answer 4

要加上DOEVENTS，让系统有时间去刷新

Answer 5

你For循环体里加了 DoEvents了吗？
如果没有，就像province_(雍昊)所说，系统没有时间刷新label。
另外，如果你只想记录循环体执行的时间，你可以试试在循环体前后分别加上：
timeCount1＝timer
timeCount2＝timer
然后取差值即可。