Private Sub Form_Click()
Dim a As Integer
a=a+1
End Sub
'a的初值默认为0。每次单击窗体控件,a的初值都重新赋值为0,所以无论单击多少次窗体,a始终为1。
Private Sub Form_Click()
Static a As Integer
a=a+1 'a的值将一直累加下去
End Sub
另外Static只能用于过程中
Private Sub Form_Click()
Dim a As Integer
a=a+1
End Sub
'a的初值默认为0。每次单击窗体控件,a的初值都重新赋值为0,所以无论单击多少次窗体,a始终为1。
Private Sub Form_Click()
Static a As Integer
a=a+1 'a的值将一直累加下去
End Sub
另外Static只能用于过程中