Как превратить двумерный массив в одномерный? - VB
Формулировка задачи:
Здравствуйте!
Прошу помощи. Не знаю, как исправить код ниже для Эксель, чтобы одномерный массив полностью показывал элементы двумерного.
Решение задачи: «Как превратить двумерный массив в одномерный?»
textual
Листинг программы
Option Explicit Sub tt() Dim i&, j&, arr2(1 To 9) As Long, k& Cells.Clear ReDim arr1(1 To 3, 1 To 3) As Long For i = 1 To 3 For j = 1 To 3 arr1(i, j) = Int(20 * Rnd) [a1].Resize(3, 3) = arr1 Next Next k = 0 For i = 1 To 3 For j = 1 To 3 k = k + 1 arr2(k) = arr1(i, j) Next Next Cells(7, 6) = k Cells(7, 1) = " Число элементов в двумерном массиве k =" Cells(8, 6) = i Cells(8, 1) = " Число элементов в одномерном массиве i =" [a5].Resize(1, k) = arr2 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д