Dim a(), b() '把数组定义到这里,也就是所有函数事件的上方位置Private Sub Form_Load() '窗体load事件(加载时)我我就在这里赋值了'赋值ReDim a(3)ReDim b(2)a(1) = 1a(2) = 2a(3) = 3b(1) = 10b(2) = 11End SubPrivate Sub Command1_Click() '一个按钮的事件'演示一下这里可以调用Print a(2)Print b(2)End Sub