Question

VB中全局变量的问题

我创建了一个窗体和一个按钮，然后想通过点击按钮后为全局变量赋值，编制的代码如下：
通用部分：
Public Sub tec()
Public a() As Double
Public n As Double
a = 0
n = 0
End Sub

按钮部分：

Private Sub CommandButton1_Click()
Dim i As Integer
Dim b As Double
i = 1
b = 0
For i = 1 To 3 Step 1
b = b + i
a(i) = b
Next i
n = i
Label1.Caption = a(3)
End Sub

试运行后提示子过程或函数未定义，光标指向在a(i)处，求教该如何修改？

Answer 1

dim r as long

Public Sub Timer1_Timer()
r = r + 1
Me.Print r
End Sub

public sub A() 这个依然是子过程 并不是通用
你这样定义 R依然是局部变量 作用于A过程内而已

追问

哦哦～我想实现的就是在整个工程中设定一个全局变量，点击按钮后经过计算然后将结果赋值给这个变量供下一次计算使用，这个全局的变量该怎么进行定义呢