问: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

• ·买个蓝牙耳机 要多少钱？买个摩托罗拉数据线要多
• ·谁能教我学CAD2006画图呀
• ·文学爱好者, 请!
• ·物理谜语竞猜
• ·我的915主板盒上说可以搭配双核的CPU?
• ·牧场物语的高手进
• ·手机数据插口能与电脑连接吗?
• ·提几个关于索爱 W810c的问题
• ·哪位大侠有《雪绒花》和马思聪《思乡曲》的英文歌
• ·把一大堆技能连在一起按顺序依此释放!这个宏怎么