Вычисление сумм, произведений, экстремумов
Рассмотрим примеры, демонстрирующие возможности использования в программах операторов цикла и условных операторов.
Примеры вычисления сумм и произведений
Пример 1. Программа вычисления суммы элементов
b = {5, 2; 4,5; 1; 2,9; 3}.
Sub CommandButton1_Click()
Dim b As Single, s As Single, i As Integer
s = 0
For i = 1 To 5
b = Val(InputBox(«Введите элемент массива b»))
s = s + b
Next
MsgBox (“Сумма элементов массива равна= ” & s)
End Sub
Здесь элементы b вводятся с клавиатуры по одному числу, сумма чисел вычисляется в переменной s.
Пример 2. Программа вычисления произведения элементов
t = {0,4; -1,5; 2,8; 3; 0,9; 7,3}и значения w в соответствии с формулой:
Sub CommandButton2_Click()
Dim t As Single, w As Single
Dim p As Single, k As Integer
P=1
For k = 1 To 6
t = Val(InputBox(“t=”))
p=p*sin(t(k))
Next
w=2+p
MsgBox w
End Sub
Одномерные массивы. Вычисление экстремумов
Массивами называются совокупности данных одного типа, объединенные одним именем. Элементы массивов называются индексированными переменными.
Одномерные массивы имеют один индекс, например a(i), где a – имя массива, i – номер элемента массива.
Массивы, до их использования в программе, должны быть объявлены в операторе Dim, например:
Dim a(5) As Single
Здесь определено, что будет использоваться одномерный массив с 6-ю элементами вещественного типа одинарной точности. Число в скобках указывает номер последнего доступного для использования номера индекса. Нумерация индексов начинается с нуля.
После объявления элементы массива могут использоваться в выражениях подобно простым переменным, но с указанием индекса в круглых скобках. Например, после приведенного выше объявления массива а(i) в программном коде можно обращаться к следующим элементам массива: а(0), а(1), а(2), а(3), а(4), а(5)
Если необходимо использовать определенную нумерацию элементов массива, например с 5 до 10, то это указывается при объявлении массива следующим образом:
Dim a(5 to 10) As Single
После этого в программном коде будут доступны следующие элементы массива: а(5), а(6), а(7), а(8), а(9), а(10)
Пример 3. Программа определения максимального элемента массива d = {12; 0,4; 30; –2; 5; 9,3} и номера этого элемента.
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