编写命令按钮 Command的 Click事件代码: Private Sub Commandl Click If Command 1. Caption="暂停(&S)"Then Command 1. Caption="继续(&C)" Timer 1. Enabled= False Else Command1 Caption="暂停(&S) Timer 1. Enabled True End If End sub编写命令按钮Command1的Click事件代码： Private Sub Command1_Click() If Command1.Caption = "暂停(&S)" Then Command1.Caption = "继续(&C)" Timer1.Enabled = False Else Command1.Caption = "暂停(&S)" Timer1.Enabled = True End If End Sub