=60Then MsgBox"分钟数必须小于60!" ExitSub EndIf Ifs>=60Then MsgBox"秒数必须小于60!" ExitSub EndIf Timer1.Ena" />
收藏本站 我要纠错

VB制作倒计时器问题

2020-12-08 10:42 电子倒计时器品牌榜
1个回答
jd_7f95079e094c0

Option Explicit Dim h As Integer, m As Integer, s As Integer Private Sub Command1_Click() If Not IsNumeric(Text1.Text) Then MsgBox "请正确小时数!" Exit Sub End If If Not IsNumeric(Text2.Text) Then MsgBox "请正确分钟数!" Exit Sub End If If Not IsNumeric(Text3.Text) Then MsgBox "请正确秒数!" Exit Sub End If h = Text1.Text m = Text2.Text s = Text3.Text If m >= 60 Then MsgBox "分钟数必须小于60!" Exit Sub End If If s >= 60 Then MsgBox "秒数必须小于60!" Exit Sub End If Timer1.Ena

5点赞
相关问答

求一个10分钟的桌面倒计时器

你下载一首10分钟的歌,听完一边,就是10分钟 咕~~(╯﹏╰)b