Question

VB问题，各位大神。。。俺是初学者啊~~~

在窗体上放置标签、文本框、命令按钮、计时器控件，并根据题目要求设置其适当属性。程序运行后，在文本框中输入一个正整数后点击“开始倒计数”按钮，则可使文本框中的数字每隔1秒减1（倒计数）；当减到0时，倒计数停止，清空文本框，并把焦点移到文本框中。

Answer 1

在窗体内加两个标签label，label2作为说明“请输入一个正整数”，一个label1作为显示时间
然后添加一个text、一个command、一个timer（时间），将timer属性中interval设置为1000，然后代码如下：
Private Sub Command1_Click()'单击按钮
If Text1.Text = "" Then'如果文本框中没有内容那么
MsgBox "请输入正整数", 0 + 48, "错误提示"'提示错误信息
Timer1.Enabled = False'关闭时间
Else
Timer1.Enabled = True'否则启动时间
End If
End Sub

Private Sub Form_Load()'载入窗体，文本为空，时间停止
Text1.Text = ""
Timer1.Enabled = False
End Sub

Private Sub Label1_Change()'当标签1发生变化时
Text1.Text = Val(Text1.Text) - 1'文本转换为数值并减1
End Sub

Private Sub Text1_Change()'当文本发生变化时
If Text1.Text = "0" Then'如果文本=0那么
Timer1.Enabled = False'时间停止
Text1.Text = ""'清空文本
Text1.SetFocus'聚焦文本框
End If
End Sub

Private Sub Timer1_Timer()'将时间附予label1
If Label1.Caption <> Str(Timer) Then'如查label1的内容不等于时间，那么
Label1.Caption = Time'label1的内容等于时间
End If
End Sub