Question

vb中用计时器计时出现的问题

要求是：在窗体上画一个计时器和标签，运行程序后，标签显示经过的秒数。
PS:我写的代码是：Private Sub Timer1_Timer()
y = y + 1
label1.label = y

End Sub

但总是显示 1

Answer 1

哦，首先label1.label 中的.label属性是错的，应该是Label1.Caption。 我改了，如下
Private Sub Timer1_Timer()
Static y '//新加入
y = y + 1
Label1.Caption = y '//修改

End Sub

Answer 2

Option Explicit
Dim y As Integer

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
y = y + 1
Label1.Caption = y
End Sub