Как превратить двумерный массив в одномерный? - VB

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

Здравствуйте! Прошу помощи. Не знаю, как исправить код ниже для Эксель, чтобы одномерный массив полностью показывал элементы двумерного.

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
 
Sub tt()
Dim i&, j&, arr2(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
'i = 1
For i = 1 To 3
 For j = 1 To 3
   k = k + 1
   'i = i + 1
   arr2(i) = arr1(i, j)
   'arr2(j) = arr1(i, j)
   '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, i) = arr2
 
End Sub

Решение задачи: «Как превратить двумерный массив в одномерный?»

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