Из одномерного массива сформировать двумерный - VB

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

Доброго времени суток, уважаемые ситуации. Такая задача (Visual Basic 6.0): Из имеющегося одномерного массива из 20 элементов сформировать двумерный массив размерностью 5×4. Я ввожу в инпутбокс 20 элементов массива, затем разделяю их с помощью функции Split. Затем следуют два цикла (для переменной i - строка, j - столбец). Внутри второго нужно присваивать элементу одномерного массива индекс двумерного. В целом представляю, как это сделать. Но на практике - ничего не выходит. Огромнейшая просьба: напишите пожалуйста код решения. Заранее премного благодарен!

Сделал вот так, по-кривому. Вводится отдельно каждый элемент одномерного массива и из них строится новый двумерный 5х4

                    Листинг программы
                
 
                        
                          
                    
Dim B(5, 4) As Integer
Dim A(20) As Integer
For i = 0 To 4
    For j = 0 To 3
    If i = 0 Then s = 0
    If i = 1 Then s = 4
    If i = 2 Then s = 8
    If i = 3 Then s = 12
    If i = 4 Then s = 16
    Text = "Введите " & s + j + 1 & "-ый элемент одномерного массива"
    A(x) = InputBox(Text, "Ввод данных")
    
    B(i, j) = A(x)
    Picture1.Print B(i, j);
    Next
    Picture1.Print
Next

Решение задачи: «Из одномерного массива сформировать двумерный»

textual
                            Листинг программы 
                        
 
                        
                          
                    
    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
    Randomize
    Picture1.Cls
    
    Picture1.Print "Одномерный массив"
    For i = 1 To 20
        A(i) = InputBox("Введите " & i & "-ый элемент одномерного массива", "Ввод данных", Int(Rnd * 9 + 1))
        Picture1.Print A(i) & " ";
    Next i
    
    Picture1.Print
    Picture1.Print "Двумерный массив"
    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)' Или так
              Picture1.Print B(i, j);
        Next j
        Picture1.Print
    Next i