Question

VB问题，timer 控件的用法。

如题：

控件： timer 一个，textbox 一个, command 一个
题：单击按钮1 后 程序开始
在第一秒时， textbox 中输出 1
在第二秒时， textbox 中输出 2
.....................................
在第五秒时， textbox 中输出 5
第6秒 结束

帮助我完成代码
初始悬赏50分 可加分
秒采 在线等

Answer 1

Dim T%

Private Sub Command1_Click()
T = 0
Timer1.Interval = 1000 '计时事的毫秒数,即每1秒调用一次Timer1_Timer()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
T = T + 1
Text1.Text = T
If T = 5 Then Timer1.Enabled = False
End Sub

Answer 2

Dim a As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
Text1 = ""
a = 1
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
Text1 = a
End Sub

Private Sub Timer1_Timer()
a = a + 1
Text1 = a
If a = 6 Then
Timer1.Enabled = False
a = 0
Text1.Text = "结束"
End If
End Sub
'请参考。

Answer 3

Dim X As Integer

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

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

Private Sub Timer1_Timer()
X = X + 1
If X > 5 Then
Timer1.Enabled = False
X = 0
Else
Text1.Text = X
End If
End Sub