Чтобы сделать вывод о состоянии ряда на текущий момент можно либо сравнить между собой Sum и Sum1, либо найти разность этих значений r ( , знак + ставиться в связи с тем, что Sum1 является отрицательным значением) и исследовать ее.

Если положительная сумма Sum больше отрицательной суммы Sum1, то речь идет о расширенном производстве, если равны – то мы наблюдаем состояние стагнации, если меньше – тогда на лицо, период спада производства.

Рис. 1 Внешний вид формы для ввода и расчета суммы положительных и отрицательных элементов ряда

Текст программы

Option Explicit директива обязательного объявления переменных

Dim i As Integer задание типа переменных

Dim sum, sum1, d, r As Single

Процедура ввода значений и оформления строки заголовка

Private Sub CommandButton1_Click() начало процедуры для первой кнопки

Cells(1, 1) = "Значения ряда" присвоить ячейке А1 текстовое значение

Cells(1, 1).Select выделить ячейку А1

Selection.ColumnWidth = 24 изменить ширину выделенной ячейки

Selection.Interior.ColorIndex = 20  изменить цвет фона выделенной ячейки

With Selection.Font использование оператора With для задания

.Size = 14 размера шрифта

.FontStyle = "Полужирный" начертание шрифта

.ColorIndex = 5 цвет шрифта

End With окончание действия оператора With

i = 2 присвоить переменной i значение 2

Do While Cells(i, 1) <> "" Оператор цикла Do … Loop, работающий

i = i + 1 пока условие проверки содержимого ячейки

Loop не равно пустому будет истинно.

d = TextBox1 переменной d присваивается значение поля

TextBox1

Cells(i, 1) = d ячейке 1 столбца i-й строки присваивается значение переменной d

TextBox1 = "" обнуляется поле TextBox1

End Sub конец процедуры первой кнопки формы

Процедура нахождения суммы положительных и отрицательных значений

Private Sub CommandButton2_Click() начало процедуры для второй кнопки

sum = 0 переменной sum присваивается 0

sum1 = 0

i = 2

Do While Cells(i, 1) <> "" начало цикла

If Cells(i, 1) >= 0 Then проверка значения ячейки оператором if

sum = sum + Cells(i, 1) нахождение суммы положительных элементов

Else

sum1 = sum1 + Cells(i, 1) нахождение суммы отрицательных элементов

End If конец действия оператора условного перехода

i = i + 1 счетчик, изменяющий локальную переменную

Loop конец цикла

Label2 = sum надписи Label2 присваивается значение sum

Label5 = sum1

r = sum + sum1 переменной r присваивается значение выра-жения

Select Case r оператор выбора, позволяющий в зависимости

Case Is < 0 от значения r присвоить, соответствующую

Label6 = "Спад производства" текстовую переменную для надписи Label6

Case 0

Label6 = "Стагнация"

Case Else

Label6 = "Расширенное воспроизводство"

End Select конец оператора выбора

End Sub конец процедуры для второй кнопки

Процедура окончания работы

Private Sub CommandButton3_Click() начало процедуры для третьей кнопки

End оператор окончания работы

End Sub конец процедуры для третьей кнопки

Комментарий в тексте программы приводить не обязательно.