Транспонирование матрицы

Option Explicit
Dim A() As String
Dim H As String 'исходный текст
Dim m As Long 'количество строк матрицы
Dim n As Long 'колицество столбцов матрицы
Dim lentext As Long 'число знаков в тексте
Dim i As Long
Dim j As Long
Dim buf As String
 
Private Sub Command1_Click()
H = Text1.text
'исходный текст
m = Text2.text
'количество строк матрицы
lentext = Len(H)
n = Abs((lentext - 1) \ m) + 1 'количество столбцов
 
ReDim A(1 To m, 1 To n)
f = ""
For i = 1 To m
 For j = i To n
 buf = A(i, j)
 A(i, j) = A(j, i)
 A(j, i) = buf
 Next j
Next i
f = f & buf
Text3.text = f
End Sub

Dim A(1 To 20) As Integer, B(1 To 5, 1 To 4) As Integer
Dim i As Integer, j As Integer, x As Integer
    For i = 1 To 5
        For j = 1 To 4
              x = x + 1                   ' Можно сделать так
              B(i, j) = A(x)
             'B(i, j) = A((i - 1) * 4 + j)' Или так
              Print B(i, j);
        Next j
        Print
    Next i

x() = Split(H, "", -1, vbTextCompare)

Option Explicit
Dim A() As String
Dim B() As String
Dim H As String 'исходный текст
Dim m As Integer 'количество строк матрицы
Dim n As Integer 'колицество столбцов матрицы
Dim lentext As Long 'число знаков в тексте
Dim f As String
Dim i As Integer
Dim j As Integer
Dim x As Integer
Dim buf As String
 
Private Sub Command1_Click()
H = Text1.Text
'исходный текст
m = Text2.Text
'количество строк матрицы
lentext = Len(H)
n = Abs((lentext - 1) \ m) + 1 'количество столбцов
A() = Split(H, "", -1, vbTextCompare) 'формируем массив из введенных слов
 
ReDim A(1 To lentext) As String, B(1 To m, 1 To n) As String 'формируем матрицу
    For i = 1 To m
        For j = 1 To n
              x = x + 1
              B(i, j) = A(x)
            Print B(i, j);
        Next j
       Print
    Next i
    
For i = 1 To m 'транспонируем матрицу
 For j = i To n
 buf = B(i, j)
 B(i, j) = B(j, i)
 B(j, i) = buf
 Next j
Next i
 
 ReDim B(1 To m * n) 'формируем обратно одномерный массив
    For i = 1 To m * n
    buf = B(i)
        Print B(i);
    Next i
Text3.Text = B(i)
End Sub

Text3.Text = B(i)

Option Explicit
 
Private Sub Command1_Click()
     Dim A() As String, B() As String, Temp() As String, H As String
    Dim i As Long, j As Long, N As Long, M As Long, lentext As Long
    H = "Наша Маша громко плачет,уронила в речку мячик.Тише Машенька не плачь,не утонет в речке мяч!!!!!"
    lentext = Len(H)
    ReDim A(1 To lentext)
    'Вычислим число строк и столбцов
    For i = 1 To lentext
        For j = i To lentext
            If i * j = lentext Then M = i: N = j 'их будет много,но лучшее соотношение будет в конце
        Next
    Next
    Print M, N, lentext
    For i = 1 To lentext
        A(i) = Mid(H, i, 1) ' Запишем все символы в массив
        Print A(i) & " ";
    Next
    Print
    ReDim B(1 To M, 1 To N), Temp(1 To N, 1 To M)
    Print "Двумерный массив"
    Print
    'Преобразуем в двумерный массив
    For i = 1 To M
        For j = 1 To N
            B(i, j) = A((i - 1) * N + j)
            Temp(j, i) = B(i, j) 'Временный массив
    Print B(i, j),
        Next j
    Print
    Next i
    ReDim B(1 To N, 1 To M) 'переопределяем
    B = Temp 'копируем
    Print
    Print "Транспонированный массив"
    Print
    H = "" 'обнулим строку
    For i = 1 To N
        For j = 1 To M
        Print B(i, j),
        H = H & B(i, j) 'и запишем что получилось
    Next j
    Print
    Next i
    Print H 'распечатаем на форме
End Sub

If i * j = lentext Then N = i: M = j 'их будет много,но лучшее соотношение будет в конце

B = Temp