Заполнить матрицу по образцу

Private Sub Command1_Click()
    Dim A(1 To 4, 1 To 4) As Integer, i As Integer, j As Integer
    For i = 1 To 4
         For j = 1 To 4
             If i <> j Then A(i, j) = j Else A(i, j) = 1
             Print A(i, j); vbTab;
         Next j
         Print
    Next i
End Sub

Private Sub Command1_Click()
Dim B() As Single, BT() As Single, N As Integer, i As Single, j As Integer
N = Text1
ReDim B(N, N) As Single, BT(N, N) As Single
For i = 1 To N
 For j = 1 To N
  B(i, j) = InputBox("Введите элемент матрицы B под номером " & i & "," & j)
  Print B(i, j);
 Next
 Print
Next
Print
For i = 1 To N
 For j = 1 To N
  BT(j, i) = B(i, j)
 Next
Next
For i = 1 To N
 For j = 1 To N
  Print BT(i, j);
 Next
 Print
Next
Print
End Sub

Option Base 1
Private Sub Command1_Click()
Dim m As Integer, i As Integer
Dim n As Integer, j As Integer
Dim Z() As Integer, E() As Integer, T() As Integer
Dim W() As Integer
m = InputBox("Введите m=")
n = InputBox("Введите n=")
 ReDim Z(m, n)
For i = 1 To m
For j = 1 To n
Z(i, j) = InputBox(" Z ( " & i & " " & j & " ) = ")
Print "(Z" & i & " " & j & ")) =" & Z(i, j);
Next
Print
Next
ReDim E(m, n)
For i = 1 To m
For j = 1 To n
E(i, j) = InputBox(" E ( " & i & " " & j & " ) = ")
Print "(E" & i & " " & j & ")) =" & E(i, j);
Next
Print
Next
ReDim T(m, n)
For i = 1 To m
For j = 1 To n
T(i, j) = InputBox(" T ( " & i & " " & j & " ) = ")
Print "(T" & i & " " & j & ")) =" & T(i, j);
Next
Print
Next
ReDim W(m, n)
For i = 1 To m
For j = 1 To n
W(i, j) = Z(i, j) + E(i, j) - T(i, j)
Print "(W" & i & " " & j & ")) =" & W(i, j)
Next
Next
End Sub