Циклы: For…Next, For Each…Next, Do While…Loop, Do Until…Loop

Private Sub ForEachWord()
For Each oWord In ThisDocument.Words
MsgBox oWord.Text
Next
End Sub

Sub Макрос1()
'Создание на пластинке оперативной памяти
'поименованной области (массива) myArray.
'1 To - означает, что нумерация элементов в массиве
'будет начинаться с 1 (так удобнее человеку).
'По умолчанию элементы массива нумеруются с нуля.
'Long означает, что в массиве могут быть только целые числа (а не дробные).
Dim myArray(1 To 10) As Long
'Создание на пластинке оперативной памяти
'поименованной области (переменной) i.
'Integer означает, что в переменной могут быть только целые числа (а не дробные).
Dim i As Integer
Dim Сумма As Long
'Заполнение массива числами.
'For ... To ... Next - называется циклом.
For i = 1 To 10
    'InputBox - инструмент VBA для помещения в массивы информации.
    myArray(i) = InputBox("Введите число для элемента массива")
    'If ... Then ... End If - используется для того, чтобы выбрать,
    'какое действие выполнить.
    'Mod - это инструмент VBA, который используется для того, чтобы
    'получить остаток от деления. Мысленно Mod можно заменить
    'знаком деления "/", только в данном случае мы получаем остаток от
    'деления, например, 5 / 2 = 2 и остаток от деления равен 5 - 4 = 1.
    'В данном случае 5 является нечётным числом, т.к. делится на 2 с остатком.
    'Если число делится на 2 без остатка, то число является чётным.
    'Пример чётного числа 4. 4 / 2 = 2. Остатка нет.
    If myArray(i) Mod 2 <> 0 Then
        Сумма = Сумма + myArray(i)
    End If
Next i
'MsgBox - это инструмент VBA для вывода на экран информации.
MsgBox "Результат сложения нечетных чисел " & Сумма
End Sub