vb 如何让数组的值直接传给"子过程"

Private Sub Option2_Click(Index As Integer)

If Index = 0 Then
c(k) = a1(i)
End If
过程
End Sub

请问:如何让a1(i) 的值直接传给"子过程"z(k),我这样是不行的.
Private Sub 过程()

Dim z(10000) As Long
o = Val(Text1.Text)
k = 0
For i = num - o + 1 To num + 1
k = k + 1
z(k) = c(i)
x(k) = a7(i)
Next
ReDim MyData(o - 1, 1)
For i = 1 To o
MyData(i - 1, 0) = str$(x(i))
MyData(i - 1, 1) = z(i)
Next
MSChart1.chartType = 3

MSChart1.Plot.Axis(VtChAxisIdX).Labels(1).VtFont.Name = 8
'MSChart1.TitleText = "第六位"
MSChart1.ChartData = MyData

End Sub
(这只是一部分,各数组都定义了的)
Private Sub Option2_Click(Index As Integer)

If Index = 0 Then
c(k) = a1(i) (这里的a1(i)不是固定的,而是变化的,a2(i),a3(i),a4(i)...,请问,这样如何把它们传给"子过程")
End If
过程
End Sub

a1(i),a2(i),a3(i).....是多个数组,这么说吧,当:
If Index = 0 Then

a1(i)
在调用者Option2_Click里没有声明，那么就是全局变量
既然这样，在“过程”中直接使用就好了。

答案补充：
“这里的a1(i)不是固定的,而是变化的,a2(i),a3(i),a4(i)...,”
那么请问，你的i是怎么变化？谁来主导？

VB中怎么把文本框的里面的值传给数组啊? 如何把char*里面的内容传给一个char数组？ vb的 二维数组如何添值 如何得到值 VB。NET如何把DATAVIEW的值放到数组里 JAVA中如何把二维字符数组的所有字符，传给一个一维字符数组 在vb中如何将一个窗体的文本框的值传给另一个窗体文本框 vb 中的数组与值的问题 VB数组的问题!!!!! VB数组的问题 vb数组的问题