Лекция: Sub CommandButton2_Click()
Dim d(1 To 6) As Single, max As Single, n As Integer, i As Integer
For i = 1 To 6
d(i) = Val(InputBox(«Введите элемент массива d»))
Next
max = d(1): n = 1
For i = 1 To 6
If d(i) > max Then max = d(i): n = i
Next
MsgBox (“Макс. знач. =” & max & “ имеет элемент с номером ” & n)
End Sub
Пример 4. В таблице на рис. 7.1 представлены значения температуры воздуха. Необходимо определить среднюю, минимальную и максимальную температуры, а также количество дней с положительной и отрицательной температурой.
Для решения этой задачи оформим лист Excel согласно образцу (рис. 7.1). Переменные можно объявить в разделе General (на листе программы в самом верху перед первым Sub) и тогда они могут быть использованы для расчета в разных процедурах рабочей книги:
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 ‘ ячейка с именем 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