транспонирование массива

[Tomoa]

необходимо транспонировать массив n x n и вывести его
помогите с выводом массива
вот код:
Public Sub var9()
Dim A() As Double, B() As Double, n As Integer, i As Integer, j As Integer
n = InputBox("Ukagite razmernost' (n*n)")
ReDim A(1 To n, 1 To n)
ReDim B(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
A(i, j) = InputBox("VVedite element A (" & i & "," & j & ")")
Next j
Next i
For i = 1 To n
For j = 1 To n
B(i, j) = A(j, i)
Next j
Next i
End Sub

[Sasha_Smirnov]

Различные способы (все отлаженные) вот тут: http://programmersforum.ru/showthrea...036#post164036.
Вообще-то есть смысл поэкспериментировать ещё и самой.

[Tomoa]

сама я эксперементировала, только вот у меня он выводится либо в столбец, либо в строку((
я понимаю, что для вывода двухмерного массива необходимо после изменения номера строки переходить на новую строку.

[Sasha_Smirnov]

Option Base 1
Dim n As Variant, i As Integer, j As Integer

Sub var9()
Do
n = Val(InputBox("Укажите размерность: число в диапазоне 1—8.", "var9", 3))
Loop Until IsNumeric(n) And n > 0 And n < 9

ReDim A(1 To n, 1 To n)
ReDim B(1 To n, 1 To n)

For i = 1 To n
    For j = 1 To n
    Do
    A(i, j) = InputBox("A(" & i & ", " & j & ")", "var9", Int(1 + 20 * Rnd)) 'ВВОД'
    Loop Until IsNumeric(n) 'ввод элемента происходит лишь при том, что он - число'
    Next j
Next i

For i = 1 To n
    For j = 1 To n
    B(i, j) = A(j, i) 'ТРАНСПОНИРОВАНИЕ'
    Next j
Next i

With Selection
.HomeKey wdStory 'поставили курсор в начало 1-й страницы'
.TypeText "Исходная матрица:" & vbCr: putMatrix A 'ВЫВОД матрицы «A» в активный документ'
.TypeText "Транспонированная:" & vbCr: putMatrix B 'ВЫВОД матрицы «B» в активный документ'
End With
End Sub

Function putMatrix(mat) 'печать таблиц чисел n на n'
For i = 1 To n
        For j = 1 To n
        Selection.TypeText vbTab & mat(i, j) 'печать i-й строки'
        Next j
    Selection.TypeParagraph
Next i
End Function

Также приложен отлаженный проект.