使用vb编写倒计时30分钟的代码？
1个回答
展开全部
Dim a As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
a = 1800
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
a = a - 1
If a <= 0 Then
Timer1.Enabled = False
MsgBox "30分钟倒计时时间到！"
End If
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
