Из одномерного массива сформировать двумерный - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.769 из 5
Похожие ответы