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