Как превратить двумерный массив в одномерный? - 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

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

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