Dim min As Single, max As Single, x As Single

Dim min As Single, max As Single, x As Single - student2.ru

Рис. 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

Формула для вычислений Исходные данные
Dim min As Single, max As Single, x As Single - student2.ru Dim min As Single, max As Single, x As Single - student2.ru
Dim min As Single, max As Single, x As Single - student2.ru Dim min As Single, max As Single, x As Single - student2.ru
Dim min As Single, max As Single, x As Single - student2.ru Dim min As Single, max As Single, x As Single - student2.ru
Dim min As Single, max As Single, x As Single - student2.ru Dim min As Single, max As Single, x As Single - student2.ru
Dim min As Single, max As Single, x As Single - student2.ru Dim min As Single, max As Single, x As Single - student2.ru
  Dim min As Single, max As Single, x As Single - student2.ru Dim min As Single, max As Single, x As Single - student2.ru
Dim min As Single, max As Single, x As Single - student2.ru Dim min As Single, max As Single, x As Single - student2.ru
  Dim min As Single, max As Single, x As Single - student2.ru   Dim min As Single, max As Single, x As Single - student2.ru
  Dim min As Single, max As Single, x As Single - student2.ru Dim min As Single, max As Single, x As Single - student2.ru
Dim min As Single, max As Single, x As Single - student2.ru   Dim min As Single, max As Single, x As Single - student2.ru
Dim min As Single, max As Single, x As Single - student2.ru Dim min As Single, max As Single, x As Single - student2.ru
Dim min As Single, max As Single, x As Single - student2.ru   Dim min As Single, max As Single, x As Single - student2.ru
Dim min As Single, max As Single, x As Single - student2.ru   Dim min As Single, max As Single, x As Single - student2.ru
Dim min As Single, max As Single, x As Single - student2.ru   Dim min As Single, max As Single, x As Single - student2.ru
Dim min As Single, max As Single, x As Single - student2.ru Dim min As Single, max As Single, x As Single - student2.ru

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

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

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

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

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

ФОРМЫ ПОЛЬЗОВАТЕЛЯ

Управление электронными документами в Excel может производиться с помощью вспомогательных окон, которые называются пользовательскими формами UserForms.

Наши рекомендации