Dim min As Single, max As Single, x As Single
Рис. 7.1 − Образец оформления программы расчета температуры
Процедура для кнопки «Среднее значение» (расчет средней температуры):
Private Sub CommandButton1_Click()
i = 6
Do Until Worksheets("Лист1").Cells(i, 4) = ""
i = i + 1
Loop
Ndata = i – 1 ‘количество расчетных дней
‘Вычисление суммарной температуры
sum = 0 ‘ ячейка с именем Sum обнуляется
‘ цикл для просмотра всех строк таблицы
For i = 7 To Ndata
x = Worksheets("Лист1").Cells(i, 4)‘ ввод значения температуры из i-той строки 4-го столбца
sum = sum + x‘суммирование значений температуры
Next i
mx = sum / (Ndata - 6)‘определение среднего значения
Worksheets("Лист1").Cells(Ndata + 2, 4)="Средняя температура"
Worksheets("Лист1").Cells(Ndata + 2, 7) = mx
End Sub
Для кнопки «min» (расчет минимальной температуры) процедура имеет вид:
Private Sub CommandButton2_Click()
Dim l as Integer
min = Worksheets("Лист1").Cells(Ndata - 6, 4)
l=7 ‘номер строки, с которой начинается таблица
For i = 7 To Ndata
x = Worksheets("Лист1").Cells(i, 4)
If x < min Then
min = x
l=i ‘запоминание номера строки с минимальной температурой
End If
Next i
Worksheets("Лист1").Cells(Ndata+3,4)="Минимальная температура"
Worksheets("Лист1").Cells(Ndata + 3, 7) = min
Worksheets("Лист1").Cells(Ndata + 3, 9) = "Была "
Worksheets("Лист1").Cells(Ndata + 3, 10) = Cells(l, 3)
End Sub
В данной процедуре переменной min присваивается значение температуры из первой строки таблицы. Затем каждое очередное значение сравнивается со значением min. Если очередное значение температуры оказывается меньше min, то это число посылается в min.
Процедура для кнопки «max» (расчет максимальной температуры):
Private Sub CommandButton3_Click()
min = Worksheets(" Лист1 ").Cells(Ndata - 6, 4)
For i = 7 To Ndata
x = Worksheets(" Лист1 ").Cells(i, 4)
If x > max Then max = x
Next i
Worksheets(" Лист1 ").Cells(Ndata + 4, 4) = «Максимальная температура "
Worksheets(" Лист1 ").Cells(Ndata + 4, 7) = min
End Sub
Для кнопки «>0 и <0» (расчет количества дней с положительной и отрицательной температурой):
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 лет. Определить сколько раз эта команда была призером чемпионата (призерами считаются команды, занявшие первые три места).
ФОРМЫ ПОЛЬЗОВАТЕЛЯ
Управление электронными документами в Excel может производиться с помощью вспомогательных окон, которые называются пользовательскими формами UserForms.