计时器（为演讲比赛而做的）

Option   Explicit
Dim  Mm%, Ss%, num%      '   三个整形变量分别表示秒、分

Private   Sub  Command1_Click()
 Timer1.Enabled  =   Not  Timer1.Enabled
 
     If  Timer1.Enabled  Then
        Command1.Caption  =   " 停 止 "
        Command2.Enabled  =   False
     Else
        Command1.Caption  =   " 继 续 "
        Command2.Enabled  =   True
     End   If
End Sub

Private   Sub  Command2_Click()
Command1.Caption  =   " 开 始 "

Mm  =  IIf(Option1,  5 ,  3 )
Ss  =   0
num  =  Mm  *   60
Text1  =  Format$(Mm,  " 00 " )  +   " : "   +  Format$(Ss,  " 00 " )

End Sub

Private   Sub  Form_Load()

Timer1.Enabled  =   False
Mm  =  IIf(Option1,  5 ,  3 )
Text1  =  Format$(Mm,  " 00 " )  +   " : "   +  Format$(Ss,  " 00 " )
num  =  Mm  *   60

End Sub

Private   Sub  Option1_Click()
Mm  =  IIf(Option1,  5 ,  3 )
Text1  =  Format$(Mm,  " 00 " )  +   " : "   +  Format$(Ss,  " 00 " )
num  =  Mm  *   60

End Sub

Private   Sub  Option2_Click()
Mm  =  IIf(Option1,  5 ,  3 )
Text1  =  Format$(Mm,  " 00 " )  +   " : "   +  Format$(Ss,  " 00 " )
num  =  Mm  *   60
End Sub

Private   Sub  Timer1_Timer()

     If  num  >   - 1   Then
    num  =  num  -   1
     End   If
    Mm  =  num    60        ' 余下的分钟
    Ss  =  num  Mod   60     ' 余下的秒
     If  Ss  =   - 1   Then
    Ss  =  Ss  +   1
     End   If
    Text1  =  Format(Mm,  " 00 " )  +   " : "   +  Format(Ss,  " 00 " )
    
     If  num  >=   29   And  num  <=   31   Then
        Beep
     End   If
     If  num  <=   5   And  num  >=   1   Then
        Beep
        End   If
     If  num  =   0   Then
            MsgBox   " 时间到啦！ "
     End   If
    
End Sub

 网上的家伙都要收费 真可恶！自己编一个 还好吧 和大家分享一下.....