Private Sub Command1_Click() '按下按钮Command1.Caption = 1Timer1.Enabled = True '启用时钟Timer1.Interval = 1000 '1秒执行一次End SubPrivate Sub Timer1_Timer() '时钟每次执行一次的命令Command1.Caption = Command1.Caption + 1End Sub