End Sub. В ForEachNext элементы массива Студенты заполняются фамилиями студентов, которые затем по очереди выводятся на экран в структуре For-Each-Next:

В ForEachNext элементы массива Студенты заполняются фамилиями студентов, которые затем по очереди выводятся на экран в структуре For - Each - Next:

Обратите внимание, что, как и в случае For-Next, инструкции цикла выполняются определенное число раз, однако здесь вам не придется заботиться об указании этого числа. Оно точно совпадает с количеством элементов массива (или объектов семейства). Этот пример можно переписать с помощью структуры For-Next:

Sub ForNext()

Dim Студенты(5) As String

Dim Count1 As Integer

Студенты(1) = "Абрикосов"

Студенты(2) = "Богданов"

Студенты(3) = "Кузнецова"

Студенты(4) = "Милютин"

Студенты(5) =" Романова "

For Count1 = 1 To UBound(Студенты)

MsgBox Студенты(Countl)

Next