问:VB里的timer一个用法

Private Sub Form_Load()

Timer1.Enabled = True

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

for i=60 to 0 step -1

i= i -1

print " 倒数 " & i & " 秒"

End Sub

在如上代码中,如何定义i 才可以实现 隔一秒 i-1 呢

Dim i As Integer

Private Sub Form_Load()

i = InputBox("输入倒记时起点")

Timer1.Enabled = True

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Cls

i = i - 1

Print " 倒数 " & i & " 秒"

If i <= 0 Then

Timer1.Enabled = False

End If

End Sub