VB 制作 设定分钟数，进行倒计时显示。创新在于 利用取余 找出 秒数，利用取整找出 分钟数。
方法/步骤
1
倒计时的页面设置如下，本案例的特点是 时间设定以分钟为单位，但在lable中显示的是以1分30秒这样的剩余时间显示。
2
首先在公共变量声明 分钟数和秒数的变量dim fendim miao然后在开始倒计时 按钮命令下：Timer1.Enabled = TrueTimer1.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 IfEnd Sub
上一篇：怎样使用白板工具中的倒计时功能？