Лекция: 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. Вывести соответствующее сообщение.