Создать два одномерных массива по 10 целочисленных значений каждый.Сформировать третий массив из 20 элементов следующим образом:на нечетные места став - VBA

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

Создать два одномерных массива по 10 целочисленных значений каждый.Сформировать третий массив из 20 элементов следующим образом:на нечетные места ставить элементы из первого массива,на четные места - из второго

Решение задачи: «Создать два одномерных массива по 10 целочисленных значений каждый.Сформировать третий массив из 20 элементов следующим образом:на нечетные места став»

textual
                            Листинг программы 
                        

                            Sub NewWithArray()
Dim fARR(), sARR(), mixARR(), i&, j&, n&
   n = 10
   ReDim fARR(1 To n): ReDim sARR(1 To n): ReDim mixARR(1 To n * 2)
   Randomize
      For i = 1 To n
         fARR(i) = Int((100 * Rnd()) + 1): sARR(i) = Int((50 * Rnd()) + 1)
      Next 'i
   j = 0
      For i = 1 To n * 2 Step 2
         j = j + 1: mixARR(i) = fARR(j): mixARR(i + 1) = sARR(j)
      Next 'i
      With ActiveSheet.Cells(Rows.Count, 1).End(xlUp)
         .Offset(2, 0).Value = "MY FIRST ARRAY:"
         .Offset(3, 0).Resize(1, UBound(fARR)).Value = fARR
         .Offset(5, 0).Value = "MY SECOND ARRAY:"
         .Offset(6, 0).Resize(1, UBound(sARR)).Value = sARR
         .Offset(8, 0).Value = "MY AMALGAMATE ARRAY:"
         .Offset(9, 0).Resize(1, UBound(mixARR)).Value = mixARR
      End With
   Erase fARR, sARR, mixARR: MsgBox Space(10) & "D O N E!"
End Sub
                        