Dim st, et, pt Private Sub Command1_Click() If Command1.Caption = "开始" Then st = Now Text1 = Format(st, "hh:mm:ss") Command1.Caption = "结束" Else et = Now Text2 = Format(et, "hh:mm:ss") Command1.Caption = "开始" pt = et - st Text3 = Format(pt, "hh:mm:ss") End If End Sub 就是利用caption这个变量来反复变换各种参数以致于实现秒表的开始或者结束功能