Задание № 4. Сформировать на рабочем листе Excel одномерный массив, состоящий из положительных, отрицательных и нулевых элементов

Задание:

Сформировать на рабочем листе Excel одномерный массив, состоящий из положительных, отрицательных и нулевых элементов. Создать процедуру вычисления сумм элементов с четными и нечетными номерами. Выяснить, какая сумма больше. На рабочем лист Excel создать таблицу, содержащую результат выполнения процедуры.

Пример отчета:

Программный код процедуры имеет следующий вид:

Public Sub Сумма()

Dim x() As Single 'Объявление динамического массива Х

Dim n As Integer 'Размерность массива Х

Dim Sh As Single, Sn As Single

Dim Txt As String 'Переменная для вывода текстового сообщения

Dim i As Byte

'Переменной n присваивается размерность массива Х, т.е. число,

'равное количеству ячеек в диапазоне, начиная с ячейки B3,

'вниз до первой пустой строки:

n = Range("B3", Range("B3").End(xlDown)).Count

ReDim x(1 To n) As Single 'Переопределение размерности массива Х

For i = 1 To n 'Ввод заданного массива Х с рабочего

x(i) = Cells(i + 2, 2) 'листа Excel в оперативную память

Next i

Sh = 0 'Инициализация переменной, для накопления суммы

'элементов с четными номерами

For i = 2 To n Step 2

Sh = Sh + x(i)

Next i

Sn = 0 'Инициализация переменной, для накопления суммы

'элементов с нечетными номерами

For i = 1 To n Step 2

Sn = Sn + x(i)

Next i

Range("C3") = Sh

Range("D3") = Sn

If Sh > Sn Then

Txt = "Сумма элементов с четными номерами больше"

ElseIf Sh < Sn Then

Txt = "Сумма элементов с нечетными номерами больше"

Else

Txt = "Суммы равны"

End If

Range("F3") = Txt