VB 制作倒计时 程序

1、倒计时的页面设置如下，本案例的特点是 时间设定以分钟为单位，但在lable中显示的是以1分30秒这样的剩余时间显示。

2、首先在公共变量声明 分钟数和秒数的变量

dim fen

dim miao

然后在开始倒计时 按钮命令下：

Timer1.Enabled = True

Timer1.Interval = 1000  ‘ 一秒钟 启动计时器以此，对应，以秒为单位递减

fen = Val(Text1.Text)  ‘读取设定的倒计时时间，以分钟为单位

miao = fen * 60       ’我们以秒为单位递减，统计总的秒数

3、最重要的是在定时器的事件中

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