查人人中国名人网哪里工作好:vb加法问题高手帮帮我
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/05 01:35:25
就是让每隔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