首頁>Club>
10
回覆列表
  • 1 # 電死你123

    Dim m As Integer, s As Integer, ms As Integer, flag As Boolean

    Private Sub Command1_Click()

    If flag = False Then

    Timer1.Interval = 10

    flag = True

    Else

    Timer1.Interval = 0

    flag = False

    End If

    End Sub

    Private Sub Command2_Click()

    flag = False

    Timer1.Interval = 0

    m = 0

    s = 0

    ms = 0

    Label1.Caption = "00:00:00"

    End Sub

    Private Sub Timer1_Timer()

    ms = ms + 1

    If ms = 100 Then

    s = s + 1

    ms = 0

    End If

    If s = 60 Then

    m = m + 1

    s = 0

    End If

    Label1.Caption = Format(m, "00:") & Format(s, "00:") & Format(ms, "00")

    End Sub

  • 中秋節和大豐收的關聯?
  • 小孩子晚上睡覺出汗是什麼原因?