Question

vb 如何每次单击一次按钮变量x加1？

Answer 1

VB可在按钮的Click事件中用Static语句声明一个变量或在窗体的通用模块中声明变量。

Static 语句，在过程级别中使用，用于声明变量并分配存储空间。在整个代码运行期间都能保留使用 Static 语句声明的变量的值。

模块的代码开始运行后，使用
Static 语句声明的变量会一直保持其值，直至该模块复位或重新启动。可以在非静态的过程中使用 Static
语句显式声明只在该过程内可见，但具有与包含该过程定义的模块相同生命期的变量。

• Statlc语句代码实例：

Private Sub Command1_Click()
    Static i As Long
    i = i + 1
    Text1 = i
End Sub

• 窗体的通用模块代码实例：
  

Option Explicit
    Dim i As Long

Private Sub Command1_Click()
    i = i + 1
    Text1 = i
End Sub

注意后者在窗体的生命期内，该值变量始终保持按钮事件改变的值。

Answer 2

dim x as integer
private sub command1_click()
cls
x= x+1
print x
end sub

追问

cls是什么意思？

追答

Cls是清除窗体上打印的内容，我只是举个例子，为了在窗体显示方便，在显示下个数字前把上次显示的数字清除掉