vb 如何每次单击一次按钮变量x加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

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

温馨提示:内容为网友见解,仅供参考
第1个回答  推荐于2018-03-23
dim x as integer
private sub command1_click()
cls
x= x+1
print x
end sub追问

cls是什么意思?

追答

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

本回答被提问者和网友采纳
相似回答