关于visual basic 程序设计中计时器

来源：百度知道 编辑：UC知道 时间：2024/05/14 00:15:12
编写程序,用计时器按秒计时,在窗体上画一个计时器控件和一个标签,程序运行后,在标签内显示经过的秒数.请问:如何编写程序?

新建VB工程，在窗体上添加一个计时器控件和一个标签，将计时器控件的属性Interval设置为1000
代码如下：
Option Explicit
Dim a As Single
Private Sub Timer1_Timer()
a = a + 1
Label1.Caption = a
End Sub