Question

怎样在vb中定义一个函数 或过程，在这个函数或过程中给几个动态数组赋值，然后在其他窗体调用这些数组？

本人 菜鸟。我想编一个过程或者函数，在这个过程或函数中定义两个动态数组a（）和b（），并且给这两个数组赋值，比如redim a(3);a(1)=1;a(2)=2;a(3)=3 redim b(2);b(1)=10;b(2)=11 定义好以后，我想在别的窗体中随意调用这两个数组，比如print a（2）；print b(2) 就是这个思路，请给我说说代码如何写？

Answer 1

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

追问

我是有两个窗体，在窗体2上点击，print窗体1定义的数组，如何实现？

追答

新建一个模块
然后把这句放到里面就可以了，注意把原窗体的那个删了
Dim a(), b()