可以使用change,不需要使用for(其实是我不会用for哈哈) 例如:在vb窗体加入1个timer ,2个label,然后代码如下: Private Sub Form_Load() Timer1.Interval = 1000 Label2.Caption = 1 End Sub Private Sub Label1_Change() Label2.Caption = Label2.Caption + 1 End Sub Private Sub Timer1_Timer() If Label1.Caption <> Str(Timer) Then Label1.Caption = Time End If End Sub