End Sub. 4) Оператор For EachNext
4) Оператор For Each...Next
Цей оператор дозволяє робити обробку набору об'єктів (наприклад, елементів масиву даних). У цьому випадку немає необхідності використовувати лічильник циклу, тому що циклічний перегляд і обробка виробляється для певних елементів набору.
Синтаксис оператора:
For Each елемент In група
Блок операторів
Next [елемент]
Параметр елемент - змінна типу Variant(ця обов'язкова умова), що представляє елемент сімейства або масиву. Група - ім'я масиву або сімейства. Блок операторів виконується тільки один раз для кожного члена групи.
Найважливіше в операторі For Each…Next те, що не потрібно заздалегідь знати, скільки елементів утримується в масиві або сімействі. Таким чином, не потрібно підраховувати число елементів або перевіряти досягнення кінця групи. Це дозволяє виключити одну з найбільш загальних помилок при програмуванні: неправильну індексацію елементів масивів.
Приклад 4. Дано масив А=(ai), i=1,2,...,10. Знайти добуток позитивних елементів.
Позначення: p - добуток позитивних елементів.
Sub Р4()
Dim a(1 to 10) As Double
Dim p As Single, i As Integer, n As Variant
For i = 1 To 10
a(i) = Val(InputBox("Введіть "& str(i) & “ елемент масиву а"))
Next i
p = 1
For Each n In a
If n > 0 Then p = p * n
Next n
MsgBox "p=" & p
Дата добавления: 2015-10-13; просмотров: 488;