Вычисление сумм, произведений, нахождение минимумов и максимумов
Пример 7: Пусть на складе имеются следующие фрукты.
Найти общее количество условных единиц (кг) товара, находящегося на складе.
Для кнопки «Вычислить»:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim k As Integer
Dim j As Integer
‘Определим, какое количество наименований товара находится на складе.
i = 6
Do Until Worksheets("Товар").Cells(i, 3) = ""
i = i + 1
Loop
j = i - 1
‘Вычисляем сумму
s = 0
For i = 7 To j
r = Worksheets("Товар").Cells(i, 4)
s = s + r
Next i
‘ Выводим результат
Worksheets("Товар").Cells(j + 2, 3) = _ "Общее количество товара"
Worksheets("Товар").Cells(j + 2, 4) = s
End Sub
‘Вычисляем произведение:
s = 1
For i = 7 To j
r = Worksheets("Товар").Cells(i, 4)
s = s * r
Next i
Пример 10: По сообщению синоптиков в первой половине января температура воздуха составляла(данные приведены в таблице):
Найти среднюю, минимальную, максимальную температуру, а также день, когда была самая низкая температура. Определить количество дней с положительной и отрицательной температурой.
Учитывая то, что многие переменные могут быть использованы для расчета в разных процедурах, объявим их в разделе Geneal.
В разделе Geneal:
Dim i As Integer, Ndata As Integer
Dim Nplus As Integer, Nminus As Integer
Dim sum As Single, mx As Single, disp As Single
Dim min As Single, max As Single, x As Single
Для кнопки «Среднее значение»:
Private Sub CommandButton1_Click()
i = 6
Do Until Worksheets("Лист1").Cells(i, 4) = "" ‘ пока не встретится пустая строка
i = i + 1
Loop
Ndata = i - 1
‘Вычислим суммарную температуру
sum = 0
For i = 7 To Ndata
x = Worksheets("Лист1").Cells(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
Для кнопки «max»:
Private Sub CommandButton3_Click()
max = 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»:
Nplus = 0: Nminus = 0
For i = 7 To Ndata
x = Worksheets(" Лист1 ").Cells(i, 4)
If x > 0 Then Nplus = Nplus + 1 Else Nminus = Nminus + 1
Next
Worksheets(" Лист1 ").Cells(Ndata + 5, 4) = _ «Кол.дней с плюсовой темп."
Worksheets(" Лист1 ").Cells(Ndata + 5, 7) = Nplus
Worksheets(" Лист1 ").Cells(Ndata + 6, 4) = _
" Кол.дней с минусовой темп."
Worksheets(" Лист1 ").Cells(Ndata + 6, 7) = Nminus
End Sub