Даны целые числа a1,…a50. получить последовательность b1,…,b50, которая отличается от исходной последовательности тем, что все нечетные элементы удвоены.

VBА Microsoft Excel.
Массив а заполняется с использованием случайных чисел. Результаты выводятся на первый лист рабочей книги.

Option Base 1
Sub aaa()
    Dim a(50), b(50)
    Randomize Timer
    Cells(1, 1) = "a(i)"
    Cells(1, 2) = "b(i)"
    For i = 1 To 50
        a(i) = Int(201 * Rnd - 100)
        b(i) = 2 * a(i)
        Cells(i + 1, 1) = a(i)
        Cells(i + 1, 2) = b(i)
    Next i
End Sub