操作方法
倒计时的页面设置如下，本案例的特点是 时间设定以分钟为单位，但在lable中显示的是以1分30秒这样的剩余时间显示。
首先在公共变量声明 分钟数和秒数的变量 dim fen dim miao 然后在开始倒计时 按钮命令下： Timer1.Enabled = True Timer1.Interval = 1000 ‘ 一秒钟 启动计时器以此，对应，以秒为单位递减 fen = Val(Text1.Text) ‘读取设定的倒计时时间，以分钟为单位 miao = fen * 60 ’我们以秒为单位递减，统计总的秒数
最重要的是在定时器的事件中 Private Sub Timer1_Timer() miao = miao - 1 ‘以秒为单位 ，递减。 If miao > 60 Then ’假如秒数大于60， a = miao \ 60 ‘应该显示为几分几秒 b = miao Mod 60 ’ a代表分，b代表秒数 利用取整 和取余 Label1.Caption = a & "分" & b & "秒" Else Label1.Caption = miao & "秒" ‘如果秒数本身小于60，直接显示 End If End Sub