Question

VB高手请进 关于计时器的问题

5 编程实现：在窗体中有一个文本框，一个计时器和两个命令按钮。其功能是：程序的运行时，单击“开始计数”按钮，就开始计数，每间隔1秒，文本框中的数增加1；单击“停止计数”按钮，则计数停止。

Answer 1

Option Explicit

Private Sub Command1_Click()
Timer1.Enabled = False
End Sub

Private Sub Command2_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Text1.Text = "0"
End Sub

Private Sub Timer1_Timer()
Dim i As Integer
i = Val(Text1.Text)
i = i + 1
Text1.Text = i
End Sub

Answer 2

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Text1.Text = Val(Text1.Text)+1
End Sub