ВУЗ:
Составители:
85
Sub Pro31()
Dim L As Boolean
j=0
Do
dY=Dihotom(y)
L=dY>0.001
j=j+1
Loop While L
MsgBox "Решение с точностью 0.001 найдено за " & j & "итераций"
End Sub
Результат выполнения Pro31 будет таким же, как и Pro29, Pro30.
2.9.6. Управляющая инструкция For-Each-Next
Инструкция For-Each-Next предназначена для выполнения одной и той же груп-
пы действий над каждым объектом семейства или элементом массива. Ниже приве-
ден простой пример этой инструкции:
Sub Pro32()
Dim GasArray(5) As String
Dim Name As Variant
GasArray(1) = " methane"
GasArray(2) = " ethane "
GasArray(3) = " propane"
GasArray(4) = " butane "
GasArray(5) = "isobutane"
For Each Name In GasArray
MsgBox Name
Next Name
End Sub
В Рro32 элементы массива GasArray заполняются английскими названиями уг-
леводородов, которые при нормальных
условиях находятся в газообразном состоя-
нии. Затем в цикле For-Each-Next они по очереди выводятся на экран.
Обратите внимание, что, как и в случае For-Next, инструкции цикла выполняют-
ся определенное число раз, но здесь Вам не придется заботиться об указании этого
числа. Оно точно совпадает с количеством элементов массива (или объектов семей-
ства). Например, если увеличить размер массива до 12 (чтобы увидеть в списке и
другие углеводороды), то код с циклом For-Each переделывать не надо – это основ-
ное преимущество данной структуры.
Кстати, если в самом начале всей программы не задана инструкция Option Base
1(нумеровать элементы массива с 1), то в начале работы Рro32 Вы увидите пустое
окно, соответствующее нулевому элементу массива. Рассмотрим структуру цикла
For-Each-Next подробнее.
For Each − ключевые слова, отмечающие начало инструкции For-Each-Next
Name − переменная цикла, которой присваиваются значения элементов группы
(массива) или семейства объекта. В первом случае переменная должна относиться к
Страницы
- « первая
- ‹ предыдущая
- …
- 84
- 85
- 86
- 87
- 88
- …
- следующая ›
- последняя »
