End Sub

Результат программы:

Пример 7. Ввести массив А из 10 элементов. Найти произведение элементов массива.

Sub primer_3()

Dim A(10) As Integer

Dim Р As Integer

For i = 1 To 10

A(i) = Cells(1, i)

Next i

Р = 1

For i = 1 To 10

Р = Р * A(i)

Next i

Cells(4, 1) = "Произведение элементов массива =" & Р

'вывод произведения в 4 строку 1 столбец активного листа Excel

End Sub

Результат программы:

Пример 8. Ввести массив А из 10 элементов. Найти максимальный элемент массива.

В этом примере переменная MAX используется для запоминания текущего максимального элемента с обновлением – в случае необходимости – по мере перебора всех элементов.

Sub primer_4()

Dim A(8) As Integer

For i = 1 To 8

A(i) = Cells(1, i)

Next i

MAX = A(1)

For i = 2 To 8

If A(i) > MAX Then MAX = A(i)

Next i

MsgBox "Максимальный элемент массива = " & MAX, , "Решение задачи"

End Sub

Результат программы: