VB一个非常简单问题

来源：百度知道 编辑：UC知道 时间：2024/06/28 04:21:33
Private Sub Command1_Click()
Dim zk As Integer
zk = zk + 1
Command1.Caption = zk
End Sub

为什么不能连续点击进行 垒加？

给zk一个初值试试！

因为你的 zk 是在过程中定义的！~
你每次点击command zk都会被清空重新定义！~

所以如果你想要累加的效果 就把zk定义成全局变量 拿到程序的最上方！~

Dim zk As Integer
Private Sub Command1_Click()
zk = zk + 1
Command1.Caption = zk
End Sub

每次点击时，变量zk都要初始化，即值变为0,因为zk是个过程变量，只在本过程中适用，
如果想累加，可以将它声明为全局变量
Dim zk As Integer
Private Sub Command1_Click()
zk = zk + 1
Command1.Caption = zk
End Sub

Static zk As Integer
zk = zk + 1
Command1.Caption = zk
这么写就行了 ，把dim 换成static,
要不每次zk都重新定义，所以初值0

申明在过程内部
应该这样
Dim zk As Integer
Private Sub Command1_Click()
zk = zk + 1
Command1.Caption = zk
End Sub