End Sub

Next i

Loop

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

Dim sum As Single, mx As Single, disp As Single

Dim Nplus As Integer, Nminus As Integer

Dim i As Integer, Ndata As Integer

End Sub

Next

Next

Dim d(1 To 6) As Single, max As Single, n As Integer, i As Integer

End Sub

MsgBox w

Next

Dim p As Single, k As Integer

Dim t As Single, w As Single

P=1

For k = 1 To 6

t = Val(InputBox(“t=”))

p=p*sin(t(k))

w=2+p

Вычисление экстремумов(Задание 3)

Пример 3. Программа определения максимального элемента массива d = {12; 0,4; 30; –2; 5; 9,3} и номера этого элемента.

Sub CommandButton2_Click()

For i = 1 To 6

d(i) = Val(InputBox(«Введите элемент массива d»))

max = d(1) : n = 1

For i = 1 To 6

If d(i) > max Then max = d(i): n = i

MsgBox (“Макс. знач. =” & max & “ имеет элемент с номером ” & n)

Пример 4. В таблице на рис. 7.1 представлены значения температуры воздуха. Необходимо определить среднюю, минимальную и максимальную температуры, а также количество дней с положительной и отрицательной температурой.

Для решения этой задачи оформим лист Excel согласно образцу (рис. 7.1). Переменные можно объявить в разделе General (на листе программы в самом верху перед первым Sub) и тогда они могут быть использованы для расчета в разных процедурах рабочей книги:

Процедура для кнопки «Среднее значение» (расчет средней температуры):

Private Sub CommandButton1_Click()

i = 6

Do Until Worksheets("Лист1").Cells(i, 4) = ""

i = i + 1

Ndata = i – 1 ‘количество расчетных дней

‘Вычисление суммарной температуры

sum = 0 ‘ ячейка с именем Sum обнуляется

‘ цикл для просмотра всех строк таблицы

For i = 7 To Ndata

x = Worksheets("Лист1").Cells(i, 4)‘ ввод значения температуры из i-той строки 4-го столбца

sum = sum + x‘суммирование значений температуры

mx = sum / (Ndata - 6)‘определение среднего значения

Worksheets("Лист1").Cells(Ndata + 2, 4) = "Средняя температура"

Worksheets("Лист1").Cells(Ndata + 2, 7) = mx

Рис. 7.1. Образец оформления программы расчета температуры

Для кнопки «min» (расчет минимальной температуры) процедура имеет вид:

Private Sub CommandButton2_Click()