Нужно выполнить транспонирование матрицы, в ответе у меня выводит нули, что я сделал не так?

Нужно выполнить транспонирование матрицы,в ответе у меня выводит нули,что я сделал не так?
Option Explicit
Option Base 1
Dim S(), L() As Integer
Dim a, b As String
Dim j, i, m, n As Integer
Sub trs()
m = InputBox("m =")
n = InputBox(" n =")
ReDim S(m, n), L(m, n)

For i = 1 To m
For j = 1 To n
S(i, j) = InputBox("ââåäèòå S(" & i & "," & j & ")=")
Next j
Next i
a = ""
For i = 1 To m
For j = 1 To n
a = a & Str(S(i, j)) & " "
Next j
a = a + Chr(13)
Next i
MsgBox (a)

For i = 1 To n
For j = 1 To n
S(i, j) = L(j, i)
Next j
Next i

b = ""
For i = 1 To m
For j = 1 To n
b = b & Str(S(j, i)) & " "
Next j
b = b + Chr(13)
Next i
MsgBox (b)

End Sub

  • Прежде всего, у тебя изначальная матрица не конформна целевой. Дальше не смотрел.
  • Ничего не понял, но вроде ошибки очевидны, переписал код, должно работать, смотрите ссылку:
    Источник: http://pastebin.com/2F2yyeq0