Question

VB 中form1中有二维数组out(i,o)，我想让该数组在form2中显示 怎么做，该怎么显示，请高手指点，

Private Sub Form_Load()

Dim j As Integer, q As Integer

For j = 1 To (total_way + 1)
For i = 0 To 10
A(j, i) = Str(Format(Form1.out(0, i), ".00"))
q = q + 1
Print A(j, i)
If q Mod 11 = 0 Then
Print
End If

Next i
Next j

End Sub

Answer 1

插入一个模块
在模块中定义一个public 数组，如果是动态数组直接定义为public out(),如果知道维数那就直接指定，比如public out（10,10）
然后你可以在任何一个form中赋值或引用计算、输出等。

追问

怎么输出呢 我不会 能举一个具体的例子吗比如怎么把form1中的数组显示在form2中 谢谢

追答

‘模块：--------------
Option Explicit
Public mydata
'form1:---------------
Private Sub Form_Load()
mydata = Time()
Me.Hide
Form2.Show
End Sub
'form2:---------------------
Private Sub Form_Activate()
Print mydata
End Sub

Answer 2

再添加一个窗体form2
然后将上述代码的print改成form2.print