timer控件问题？急，要程序，谢谢各位大侠！

[candy_hn]

编写程序，用计时器按秒计时，在窗体上画一个计时器和一个标签，程序运行后，在标签内显示经过的秒数，并响铃。

我不知道该怎么样在标签内显示秒数？

timer1.Interval = 1000

[stonegoldaustin]

Sub Form_Load()
Dim i as Long
i =1
Lable1.Caption = "经过" & i "秒"
End Sub

Sub Time_Timer()
Lable1.Caption = "经过" & i+1 & "秒"
End Sub

[danielinbiti]

Dim SecCount As Long

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

Private Sub Timer1_Timer()
SecCount = SecCount + 1
Label1.Caption = SecCount
End Sub

[stonegoldaustin]

不好意思,有点错误
Sub Form_Load()
i = 0
Label1.Caption = "经过" & i & "秒"
End Sub
Private Sub Timer1_Timer()
i = i + 1
Label1.Caption = "经过" & i & "秒"
End Sub