Транспонирование матрицы - VB (171112)

Формулировка задачи:

Вечер добрый. Есть задание в котором надо выполнить транспонирование матрицы С размерности m*n , но чтоб транспонированная матрица именновалась аналогично C. Вот, собственно , все на что меня хватило. На выходе получается симметричная, что мне не нужно. Никто бы не мог подсказать в чем моя ошибка ?

Option Base 1
Private Sub Command1_Click()
Dim a() As Integer, d As Integer, m As Integer, n As Integer
m = InputBox("m")
n = InputBox("n")
ReDim a(m, n)
Print "A"
For i = 1 To m
For j = 1 To n
 a(i, j) = InputBox("a(" & i & "," & j & ")")
 Print a(i, j);
Next j
Print
Next i
 For i = 1 To m
For j = 1 To n
 d = a(i, j): a(i, j) = a(j, i): d = a(j, i)
Next j
Next i
 Print "At"
For i = 1 To n
For j = 1 To m
  Print a(i, j);
Next j
Print
Next i
End Sub

Решение задачи: «Транспонирование матрицы»

textual
                            Листинг программы 
                        

                            Option Base 1
Private Sub Command1_Click()
Dim A() As Integer, temP() As Integer, m As Integer, n As Integer
m = InputBox("m", , 3)
n = InputBox("n", , 5)
ReDim A(1 To m, 1 To n), temP(1 To n, 1 To m)
Print "A"
 
For i = 1 To m
  For j = 1 To n
    A(i, j) = Int(Rnd * 20 - 10) 'InputBox("a(" & i & "," & j & ")")
    temP(j, i) = A(i, j)
    Print A(i, j); vbTab;
  Next j
  Print
Next i
 
ReDim A(1 To n, 1 To m)
A = temP
Print "At"
 
For i = 1 To n
     For j = 1 To m
         Print A(i, j); vbTab;
     Next j
     Print
Next i
 
End Sub
                        