Dim k1 As Integer, k2 As Integer

k1 = 0: k2 = 0

For i = 7 To Ndata

x = Worksheets(" Лист1 ").Cells(i, 4)

‘расчет количества дней с положительной температурой k1 и отрицательной температурой k2

If x > 0 Then k1 = k1 + 1 Else k2 = k2 + 1

Next

Worksheets(" Лист1 ").Cells(Ndata + 5, 4) = "Кол. дней с плюсовой темп."

Worksheets(" Лист1 ").Cells(Ndata + 5, 7) = k1

Worksheets(" Лист1 ").Cells(Ndata + 6, 4) = " Кол. дней с минусовой темп."

Worksheets(" Лист1 ").Cells(Ndata + 6, 7) = k2

End Sub

Содержание заданий

1. Разработать программу по условиям, приведенным в табл. 7.1.

2. Создать кнопку «Сумма» и написать программу, вычисляющую сумму элементов массива из табл. 7.1.

3. Для командной кнопки «Произведение» создать и выполнить программу, вычисляющую произведение элементов массива.

4. Для командной кнопки «Максимум» создать и выполнить программу, вычисляющую максимальный элемент массива.

Таблица 7.1

№	Формула для вычислений	Исходные данные

5. Выполнить приведенный выше пример программы расчета температуры воздуха.

6. Разработать и оформить на рабочем листе программу по условиям задач, данным ниже. Проверить полученный результат с помощью формул Excel.

· Известен возраст 10 человек. Определить сколько из них могут рассматриваться в качестве претендентов при приеме на работу в фирму, если по условиям приема возраст претендента не должен превышать 40 лет.

· Известна информация о багаже (количество вещей и общий вес багажа) 10 пассажиров. Найти число пассажиров, имеющих более двух вещей.

· Известны места занятые футбольной командой в течение последних 10 лет. Определить, сколько раз эта команда была призером чемпионата (призерами считаются команды, занявшие первые три места).