6.2. Вычисление сумм, произведений, экстремумов

Рассмотрим примеры, демонстрирующие возможности использования в программах операторов цикла и условных операторов.

Пример 6.5. Написать программу вычисления суммы элементов массива b = {5.2; 4.5; 1; 2.9; 3}. Иначе это условие можно записать:

Пусть значения b записаны в первом столбце на рабочем листе. Результат надо поместить в ячейку B1:

Sub CommandButton5_Click()

Dim b As Single, s As Single, i As Integer

s = 0

For i = 1 To 5

b = Cells(i,1)

s = s + b

Next

Range(“B1”) = s

End Sub

Пример 6.6. Написать программу вычисления произведения элементов массива t = {0.4; –1.5; 2.8; 3; 0.9; 7.3} и значения s в соответствии с формулой

.

Исходные данные записаны в третьем столбце на рабочем листе. Результат надо поместить в ячейку D1:

Sub CommandButton6_Click()

Dim t As Single, s As Single

Dim p As Single, k As Integer

p = 1

For k = 1 To 6

t = Cells(k, 3)

p=p * sin(t)

Next

s = 2.4 + p

Range(“D1”) = s

End Sub

Пример 6.7. Определить максимальный элемент массива d = {12; 0.4; 30; –2; 5; 9.3} и номер этого элемента. Исходные данные записаны в пятом столбце на рабочем листе. Результат надо поместить в ячейки F1 и F2:

Sub CommandButton7_Click()

Dim d As Single, max As Single, n As Integer, i As Integer

max = Cells(1, 5) : n = 1

For i = 2 To 6

d = Cells(i, 5)

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

Next

Range(“F1”) = max

Range(“F2”) = n

End Sub

6.3. Одномерные массивы

Массивами называются совокупности данных одного типа, объединенных одним именем. Элементы массивов называются индексированными переменными.

Одномерные массивы имеют один индекс, например a(i), где a – имя массива; i – номер элемента массива.

Массивы до их использования в программе должны быть объявлены в операторе Dim, например:

Dim a(5) As Single

Здесь определено, что будет использоваться одномерный массив с шестью элементами вещественного типа одинарной точности. Число в скобках указывает номер последнего доступного для использования номера индекса. Нумерация индексов начинается с нуля.

После объявления элементы массива могут использоваться в выражениях подобно простым переменным, но с указанием индекса в круглых скобках. Например, после приведенного выше объявления массива а(i) в программном коде можно обращаться к следующим элементам массива: а(0), а(1), а(2), а(3), а(4), а(5).

Если необходимо использовать определенную нумерацию элементов массива, например с 5 до 10, то это указывается при объявлении массива следующим образом:

Dim a(5 to 10) As Single

После этого в программном коде будут доступны следующие элементы массива: а(5), а(6), а(7), а(8), а(9), а(10).

Ввод элементов массива может производиться с помощью оператора присваивания или в режиме диалога.

Пример 6.8. Программу предыдущего примера можно записать с использованием одномерных массивов следующим образом:

Sub CommandButton8_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

Для ввода данных используется клавиатура. Результат выдается в окно сообщений.