高考问答伊璇护肤品是不是传销:vb加法问题请高手指点
来源：百度文库 编辑：高考问答 时间：2024/04/29 23:16:57
就是让每秒加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
载入个timer控件
假设你将timer控件定义名为“Timer1”
频率(Interval属性)设为1000毫秒（即1秒，也可写入Timer1.Interval=1000 ）
定义一个初始值为1(你要的是1)
比如
dim a as long
a=1
在timer控件代码版里写入
Private Sub Timer1_Timer()
a = a + 1
if a=60(假设60是你指定要停止的数) then
timer1.enable=ture
End Sub
最好建个label让它可显示