中科新闻网我的妻主是禽兽 女尊:VB高手来帮帮我关于TIMER加法问题
来源：百度文库 编辑：中科新闻网 时间：2024/05/06 18:42:56
就是让每隔1秒加1（从1开始加）。直到加到自己指定的数停止。
timer的Interval设为1000，就是1秒触发一次事件。
定义全局变量
Option Explicit
dim i as Integer
在窗体form的load事件赋初值
Private Sub Form_Load()
i=1
end sub
在timer的Timer()事件写程序
Private Sub Timer1_Timer()
i=i+1
if i=N then 'N是自已指定的一个正整数
... '语句,可以将timer1.enable=false
... '停止累加
endif
End Sub
如下代码可实现与电脑时钟同步精度的记时功能Timer1属性Interval设为500:
Option Explicit
Dim sum_zj As Integer
Private Sub Form_Load()
sum_zj = 0
Text1 = sum_zj
End Sub
Private Sub Timer1_Timer()
If Label1.Caption <> CStr(Time$) Then
Label1.Caption = Time$
sum_zj = sum_zj + 1
Text1 = sum_zj
'60秒停止
If sum_zj >= 60 Then
Form1.BackColor = vbRed
Timer1.Enabled = False
End If
End If
End Sub