[求助]vb中下一个窗体如何引用上一个窗体中的数组
Private Sub Command1_Click()
Dim yinsu As Integer, I As Integer, S As String, J As Integer
a1 = Val(Form21.Text1.Text)
b1 = Val(Form21.Text2.Text)
a2 = Val(Form21.Text3.Text)
b2 = Val(Form21.Text4.Text)
ReDim A(a1, b1)
S = "因素" & " "
For J = 1 To b1
S = S & " " & Str(J) & Chr(13)
Next J
S = S & Chr(10)
For I = 1 To a1
S = S & "水平" & Str(I)
For J = 1 To b1
A(I, J) = InputBox("请输因素水平值", "因素水平值输入")
S = S & " " & Str(A(I, J))
Next J
S = S & Chr(13) & Chr(10)
Next I
Text1.Text = S
End Sub
我想引用A(a1, b1)
