Sub табулирование ( )

Dim x As Single, y As Single, i As Integer

Range("A1"). Value = "табулирование функции"

Range("A2"). Value = "X"

Range("B2"). Value = "Y"

i = 3 'i - номер строки

For x = 0 To 3 Step 0.5

y = Sin(x) + Cos(x)

Cells(i, 1). Value = x

Cells(i, 2). Value = y

i = i + 1

Next

End Sub

Рисунок 1.9 – Результаты работы программы "табулирование "

Оператор цикла по множеству

Синтаксис оператора:

For элемент IN группа

Инструкции тела цикла

Next

Оператор применяется для выполнения одного и того же набора операторов для нескольких объектов. Чаще всего в качестве элемента рассматривается ячейка, а множеством является диапазон. Тогда элемент должен быть описан как объект типа Range. Досрочный выход из цикла осуществляет оператор Exit For.

Пример 7. В диапазоне А3: D25 находятся числа. Проверить есть ли среди них числа, равные 1.5. Вывести соответствующее сообщение.