Question

VB中怎么做累加器？

我想用三个CommandButton按钮做一个累加器，首先Static S As Integer后，要求每次点击任一个按钮，变量S的值都加一，我以前做的是点击同一个按钮可以正常计数，可是一换另一个按钮它就把变量清零了，不知道怎么才能用三个按钮来累加。希望高手指教，不要纯代码，要有文字说明。

Answer 1

方法如下：
Option Explicit
Private Sub Form_Load()
Dim n1 As Integer
'这个n1变量来作为求平均值的除数,记录输入数据的次数
Dim tot1 As Double
'这个tot1来做为被除数,作为累加总和
Dim aver1 As Double
'aver1变量来作为平均数,用来输出
Dim newinput1 As Double
'这个newinput1用来存放用户输入的数值
Do
newinput1 = Val(InputBox("请输入新的值"))
If newinput1 = 31944027 Then
Exit Do
Exit Sub
End If
'输入特定的数字,我的QQ号,则退出.否则是不能退出的.
tot1 = tot1 + newinput1
n1 = n1 + 1
aver1 = tot1 / n1
Debug.Print "输入值之和=" & tot1
Debug.Print "平均值=" & aver1
Loop

End Sub

Answer 2

可以在所有过程的前面定义这个变量，这样变量可以在所有过程中使用。而且是程序结束后才释放这个变量。
Dim C As Long
Private Sub Command1_Click()
C = C + 1
End Sub

Private Sub Command2_Click()
C = C + 1
End Sub

Private Sub Command3_Click()
C = C + 1
End Sub
更多变量知识，请参考：http://baike.baidu.com/view/675635.htm

追问

我试过这样的，可是VB却把Dim 和上一个代码的End Sub划分在一起，也就是和Private之间用一条实线隔开，然后提示运行出错！这是怎么回事？能不能用Public来声明变量呢，怎么写？

追答

你放到最最前面 不要放 任何一个 END SUB 下面。
运行出错你截图看看，错误信息和完整代码。

Answer 3

声明一个全局变量，然后对于这个全局变量累加，应该就是这样，应为我学的是C语言所以无法给你代码