vb加法问题

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

加时钟控件，时间为1000。然后里面的程序：
如果定义变量名是A，则
while a<="这里是你自己要停止的变量或数值"
A=A+1
wend

具体语法我不记得了，如果写错了见凉，思想就是这样的，最入门的题目了