Question

vb中怎么样可以使点击command时text的数加1

Private Sub Command1_Click()
Dim x As Integer
x = x + 1
Text1.Text = x
x = Text1.Text
If Shape1.FillColor = vbBlack Then
Shape1.FillColor = vbYellow
Command1.Caption = "关"
Else
Shape1.FillColor = vbBlack
Command1.Caption = "开"
End If
End Sub
我是想点击command的时候text的数字会加1，但是为什么都是1？
最好详细点，本人是新手请多多包涵

Answer 1

用Dim x As Integer的话，那么每次按command1，系统都会给x赋初值0，所以你这里应该用static来定义，只要改为Static x As Integer就行了。

追问

真的耶，谢谢。还有Static是什么？
我想单击command2来清空次数，但是单击后数字没了，后来还是从原来的数开始这是为什么？
Private Sub Command2_Click()
Text1.Text = ""
x = 0

Answer 2

因为 X定义的问题，将X的定义为公共变量或者静态变量

在VB代码窗口处的最上方输入
Dim x As Integer

这样X就是局部变量了，这样X的值不会每次随着你点击按钮而被初始化为0了

Answer 3

Text1.Text=Text1.Text+1

追问

这样吗
x = x + 1
Text1.Text = x
x = Text1.Text
Text1.Text = Text1.Text + 1
这样就是每次2了