End Sub. Определяется значение переменной Score, и в зависимости от полученного значения выводится соответствующее сообщение

End Select

Определяется значение переменной Score, и в зависимости от полученного значения выводится соответствующее сообщение.

Управляющая инструкция For – Each - Next

Предназначена для выполнения одной и той же группы операций над каждым объектом семейства или элементом массива.

Оператор цикла For... Next

Синтаксис:

For <i>=<i0> To <iN> [Step <ih>]
<Блок>
Next [<i>]

Значения <i>, <i0>, <iN>, <ih> соответственно означают:

• <i> - параметр цикла;
• <i0>, <iN> - начальное и конечное значения параметра цикла;
• <ih> - шаг изменения параметра цикла.

Обычно перечисленные величины являются целыми числовыми. Если шаг не указан, то он по умолчанию принимается равным 1.

Для досрочного выхода из цикла используется команда Exit For.

Пример 1:

Option Base 1

Sub ForEachNext()

Dim CountryArray(5) As String

Dim Country As Variant

CountryArray(1) = "India"

CountryArray(2) = "Peru"

CountryArray(3) = "Greece"

CountryArray(4) = "Canada" …………

CountryArray(5) = "Kenya"

For Each Country In CountryArray

MsgBox Country

Дата добавления: 2014-01-07