可以定时关机,重启,提示 Dim yesno As Boolean Private Sub ABOUT_Click() Form5.Show End Sub Private Sub clear_Click() List1.clear ReDim tt(0) ReDim ss(0) ttss = 0 ...................... Command4.Caption = "开始记时" Label1.Caption = "00:00:00" End Sub