Введение в информатику. Хамухин А.А. - 103 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

102
Обратите внимание, счетчик цикла (переменную Count1) здесь необходимо
увеличивать самим в теле цикла, в отличие от примера 30, где он увеличивался
автоматически. И начальное значение счетчика цикла необходимо задать самим до
начала цикла (инструкции Do Until). Изменилось по сравнению с примером 30 и
начальное значение результата (поскольку здесь мы вычисляем сумму, а не
произведение, его необходимо задать 0).
3.10.6. Управляющая инструкция For-Each-Next
Инструкция For-Each-Next предназначена для выполнения одной и той же
группы действий над каждым объектом семейства или элементом массива. Ниже
приведен простой пример этой инструкции:
Sub Pro37()
Dim CountryArray(5) As String
Dim Country As Variant
CountryArray(1) = " Finland"
CountryArray(2) = " Iceland"
CountryArray(3) = " New Zealand"
CountryArray(4) = " Denmark"
CountryArray(5) = " Singapore"
For Each Country In CountryArray
MsgBox Country
Next
End Sub
В Рro37 элементы массива CountryArray заполняются названиями стран, с
наименьшим уровнем коррумпированности по возрастанию (по данным
Transparency International за 2006 г.), которые затем по очереди выводятся на экран
в структуре For-Each-Next.
Обратите внимание, что, как и в случае For-Next, инструкции цикла
выполняются определенное число раз, но здесь Вам не придется заботиться об
указании этого числа. Оно точно совпадает с количеством элементов массива (или
объектов семейства). Например, если увеличить размер массива до 127 (чтобы
увидеть в списке Россию), то код с циклом For-Each переделывать не надо.
Рассмотрим структуру цикла For-Each-Next подробнее.
For Each ключевые слова, отмечающие начало инструкции For-Each-Next
Country переменная, которой присваиваются значения элементов группы
массива или семейства объекта. В первом случае переменная должна относиться к
типу Variant. Во втором случае Вы можете определить ее как Variant, Object или
приписать ей конкретный объектный тип, соответствующий объектам семейства.
In ключевое слово, отделяющее переменную от группы
CountryArray группа, то есть массив или семейство объектов. Количество
повторений цикла совпадает с числом элементов в группе. Переменной цикла при
первом выполнении присваивается значение первого элемента группы, затем – всех
последующих элементов.
MsgBox Country действие, которое выполняется над элементом группы

Страницы