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» (расчет минимальной температуры) процедура имеет вид:

Не нашли, что искали? Воспользуйтесь поиском: