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)

[此贴子已经被作者于2006-5-8 9:56:43编辑过]