怎么能在通用模块内给一个数组赋值

Question

各位大虾:
我想在通用模块中定义一个数组，然后初始化给数组附上值，方便工程中各个窗体调用数组。
----------------------------------------------------------------------
现在在通用模块中public a(3) as integer后
a(0)=1
……
调用的话直接报无效的外部过程，请问该怎么给数组赋值

Answer 1

如下图中的启动对象所指的Form1

Answer 2

那就放位于标准模块中Sub Main过程中赋值,并设置它为启动对象,在此过程中来加载程序的入口窗体.

Answer 3

工程属性-->启动对象设置为：sub main()'---------Module1 code---------
Public a(3) As IntegerPrivate Sub main()
   a(0) = 1
   a(1) = 2
   a(2) = 3
   a(3) = 4
   Form1.Show
End Sub'-----------form1 code------------
Private Sub Form_Load()
   MsgBox a(1)
End Sub

Answer 4

SUB MAIN 里面赋值
然后再LOAD FORM