Question

在vb中，当不断按下command时，如何让每一次的数值累加？

每次累加的数值是窗体上的label1中不断变化的数值

Answer 1

Dim a As Integer
Private Sub Command1_Click()
    a = a + 1
    Me.Label1.Caption = a
End Sub

Answer 2

 Private Sub Command1_Click()
Static a As Long
a = a + 1
Print a
End Sub

Answer 3

你指的是command 的数据增加 么？？

追问

窗体上label1中不断变化的数值累加

追答

在窗口上 画上label1 和command1
Private Sub Command1_Click()
Dim a As Integer
a = 0

Label1.Caption = Val(Label1.Caption) + 1
End Sub