Question

求vb程序：使用标签，文本框，命名按钮、时钟控件完成。运行要求：用户点击“开始”按钮，

从文本框中读取初始秒数显示到上面的标签中，每隔一秒将标签中，显示的秒数减1，当减到0时，将时钟控件的Enabled属性置为False，并使用MsgBox显示“时间到”。

Answer 1

Dim istart As Integer
Private Sub Command1_Click()
Label1 = Val(Text1)
istart = Val(Text1)
If istart > 0 Then
Timer1.Enabled = True
Else
MsgBox "无效的倒计时时间"
End If
End Sub

Private Sub Timer1_Timer()
istart = istart - 1
Label1 = istart
If istart = 0 Then
Timer1.Enabled = False
MsgBox "时间到"
End If
End Sub
'加个label，text，timer，button,timer interval= 1000,enabled=false