那位高手能帮我注释一下这个VB小程序？？？

来源：百度知道 编辑：UC知道 时间：2024/05/23 17:22:00
一个关于电子钟的VB小程序：

Dim flag As Boolean

Dim mytime, ttime, mydate, yourdate, yourtime As Date

Private Sub cmdStart_Click()
Timer1.Interval = 1

If cmdStart.Caption = "开始" Then
cmdStart.Caption = "停止"
cmdCls.Enabled = False
Else
cmdStart.Caption = "开始"
cmdCls.Enabled = True
End If

End Sub

Private Sub cmdCls_Click()
ttime = "00:00:00"
lblShowTime.Caption = CStr(ttime)
End Sub

Private Sub cmdTime_Click()

If cmdTime.Caption = "时间" Then
cmdTime.Caption = "秒表"
Timer1.Interval = 1000
ttime = "00:00:00"
cmdStart.Enabled = False
cmdCls.Enabled = False
Else
cmdTime.Caption = "时间"
cmdStart.Enabled = True
ttime = "00:00:00"
lblShowTime.Caption = CStr(ttime)
End If

End Sub

Private Sub cmd

电子秒表代码
Option Explicit
Dim flag As Boolean
Dim mytime, ttime, mydate, yourdate, yourtime As Date
'计时开始和停止按钮代码
Private Sub cmdStart_Click()
Timer1.Interval = 1
If cmdstart.Caption = "开始" Then
cmdstart.Caption = "停止"
cmdcls.Enabled = False
Else
cmdstart.Caption = "开始"
cmdcls.Enabled = True
End If
End Sub
'清除按钮代码
Private Sub cmdCls_Click()
ttime = "00:00:00"
lblshowtime.Caption = CStr(ttime)
End Sub
'置起始时间0
Private Sub cmdTime_Click()
If cmdtime.Caption = "时间" Then
cmdtime.Caption = "秒表"
Timer1.Interval = 1000
ttime = "00:00:00"
cmdstart.Enabled = False
cmdcls.Enabled = False
Else
cmdtime.Caption = "时间"
cmdstart.Enabled = True
ttime = "00:00:00"
lblshowtime.Caption = CStr(ttime)
End If
End Sub

Private Sub cm