Option Explicit

Sub Main()
Dim arr(1 To 10) As Integer
Dim i As Integer

' Заполняем массив случайными числами
Randomize
For i = 1 To 10
arr(i) = Int((100 * Rnd) + 1)
Next i
' Выводим элементы массива с четными индексами
For i = 2 To 10 Step 2
Debug.Print "Элемент с четным индексом ", i, ": ", arr(i)
Next i
' Выводим элементы массива с нечетными индексами
For i = 1 To 10 Step 2
Debug.Print "Элемент с нечетным индексом ", i, ": ", arr(i)
Next i

End Sub

' Пример вывода:
' Элемент с четным индексом 2: 45
' Элемент с четным индексом 4: 34
' Элемент с четным индексом 6: 78
' Элемент с четным индексом 8: 12
' Элемент с четным индексом 10: 98

' Элемент с нечетным индексом 1: 67
' Элемент с нечетным индексом 3: 23
' Элемент с нечетным индексом 5: 87
' Элемент с нечетным индексом 7: 56
' Элемент с нечетным индексом 9: 33