问 为何窗体间传递数组无法进行？

模块Module1 （写入下面代码）
Public m(1) As Long, i As Long
form1 （设定了一个按钮两个文本框 写入下面的代码）
Private Sub Form_Load()
m(0) = Val(Text1.Text)
m(1) = Val(Text2.Text)
  End Sub
Private Sub Command1_Click()
  Form2.Show
End Sub
form2 （写入下面的代码）
Private Sub Form_Load()
 For i = 0 To 1
  Print m(i)
  Next i
 End Sub
运行后 什么也不显示

不是传不了数组，而是你这代码写得...
Form_Load时窗体还没有建立print是无效的
同样此时m(x) = Val(Text1.Text)也是无效的,应写到 Command1_Click里

Form1代码：
VB code

Option Explicit

Private Sub Command1_Click()
    m(0) = Val(Text1.Text)
    m(1) = Val(Text2.Text)
    Form2.Show
End Sub

Private Sub Form_Load()
    Text1.Text = "1"
    Text2.Text = "2"
End Sub

Form2代码：
VB code

Option Explicit

Private Sub Form_Load()
    Me.Caption = "m(0)=" & m(0) & "；m(1)=" & m(1)
End Sub

标准模块代码：
VB code

Option Explicit

Public m(1) As Long
Public i As Integer