Question

VB 倒计时程序设计

设计一个倒计时程序。 程序运行界面如下图所示。具体要求：（ 1 ）程序运行后，通过单选钮选择计时时间（默认为 1 分钟），单击 " 计时开始 ” 按钮进行倒计时。（ 2 ）在标签中显示计时情况，计时结束后在标签中显示 " 时间到 ” 。（ 3 ）单选钮和 " 计时开始 ” 按钮在计时开始后被禁用，直到计时结束后才可以使用。





Answer 1

VB里面有一个datediff函数，可以用来计算两个日期之间相差多少秒，然后把这个结果除以（24*60*60）的结果就是还有多少天，余数除以60*60的结果就是还有多少小时，然后余数再除以60就是分，剩下的余数就是秒

Answer 2

在图中已有代码的基础上，再增加以下二个模块，程序就可运行了：
Private Sub Option1_Click(Index As Integer)
If Index = 0 Then
pretime = 60
Else
pretime = Index * 300
End If
mm = pretime \ 60
ss = pretime Mod 60
Label1.Caption = mm & " 分 " & ss & " 秒"
End Sub

Private Sub Timer1_Timer()
pretime = pretime - 1
mm = pretime \ 60
ss = pretime Mod 60
Label1.Caption = mm & " 分 " & ss & " 秒"
If pretime = 0 Then
Timer1.Interval = 0
Frame1.Enabled = True
Command1.Enabled = True
End If
End Sub