Question

vb 全局数组 如何在子过程里定义全局性的数组，在主函数里可以使用？

Private Sub Command1_Click()
Call test
MsgBox a(1)
End Sub
Sub test()
Public a() As Integer
a(1) = 1
End Sub

为什么运行的时候“子过程或函数未定义”？

Answer 1

在所有过程前面定义的变量就是全局变量，可以在所有过程使用。
dim a(1 to 2) As Integer ‘数组定义时候要定义范围，不然使用时候需要重新定义。
Private Sub Command1_Click()
Call test
MsgBox a(1)
End Sub

Sub test()
a(1) = 1
End Sub

Answer 2

只有在标准模块中才能用Public定义全局变量,任何在子程序中定义的变量都不可能是全局的.再说定义一空数组后,必须用redim给数组重新定义确定的模数.如redim a(10)