VB 倒计时器问题

来源：百度知道 编辑：UC知道 时间：2024/05/11 17:50:12
制作一个倒计时器（距离元旦的），写出所需的对象属性及代码：要求以每秒作一次变化。

添加一个计时器,加上下面的代码,运行 就可以了
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
i = CDate(Year(Date) + 1 & "-1-1") - Now
Cls
Print "距离" & Year(Date) + 1 & "年元旦还有：" & Int(i) & "天 " & Format(i - Int(i), "HH:MM:SS")
End Sub