Вывод массива

Для распечатки полученного массива на рабочий лист Excel используется следующая конструкция:

For i = 1 To n

Cells(k, i) = A(i) ‘ вывод массива в ячейки электронной таблицы

Next i ‘ k – номер строки для заполнения ячеек.

Вместо переменной k можно использовать конкретное значение, например 3, тогда массив распечатается в третьей строке рабочего листа.

После заполнения ячеек их содержимое можно посмотреть, свернув окно программного кода при помощи кнопки “Свернуть” или переключившись в окно Excel с помощью соответствующей кнопки на панели задач.

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

Вычисление суммы, произведения и количества элементов в одномерных массивах производится обязательно в цикле, перед которым сумма приравнивается к нулю, произведение – к единице, количество – к нулю.

Например, в одномерном массиве, состоящем из пяти элементов, для вычисления суммы следует записать следующее:

sum = 0

For i = 1 To 5

sum = sum + A(i)

Next i

MsgBox (sum)

Для вычисления произведения:

pr = 1

For i = 1 To 5

pr = pr * A(i)

Next i

MsgBox (pr)

Для вычисления количества:

kol = 0

For i = 1 To 5

kol = kol + 1

Next i

MsgBox (kol)

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

Пример

Задан целочисленный массив А, состоящий из N элементов. Вычислить среднее арифметическое четных элементов и среднее геометрическое нечетных элементов.

Программный код

Option Explicit

Sub PR16()

Dim i As Integer, S As Integer

Dim K1 As Integer, K2 As Integer, N As Integer

Dim PR As Double, SA As Double, SG As Double

Dim A(50) As Integer

N = Val(InputBox("Введите N"))

S = 0: PR = 1: K1 = 0: K2 = 0

For i = 1 To N

A(i) = Cells(1, i)

Next i