
Private Sub Form_Click() Dim Matrix(3, 3) As Integer Dim i As Integer, j As Integer Print "列阵的输入" For i = 1 To 3 For j = 1 To 3 Matrix(i, j) = InputBox("列阵输入"
) Print Matrix(i, j); Spc(5); Next j Print Next i End Sub

Private Sub Form_Click() Dim Matrix(3, 3) As Integer Dim i As Integer, j As Integer Print "列阵的输入" For i = 1 To 3 For j = 1 To 3 Matrix(i, j) = InputBox("列阵输入"
) Print Matrix(i, j); Spc(5); Next j Print Next i End Sub