Курсовая работа: Проект программного модуля для нахождения приближенного значения бесконечной суммы

Private Sub CommandButton1_Click() 'Кнопка "Вычислить сумму"

'проверяем введены ли все данные

If (TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "") Then

MsgBox ("Введены не все параметры")

Exit Sub

End If

'проверяем правильно ли введены данные(a<b)

If (CDbl(TextBox1.Value) >= CDbl(TextBox2.Value)) Then

MsgBox ("Введены неправильно начало и конец отрезка")

Exit Sub

End If

'считываем данные

a = CDbl(TextBox1.Value)

b = CDbl(TextBox2.Value)

h = CDbl(TextBox3.Value)

'вычисление суммы и запись результатов

i = 1

x = a

ListBox1.AddItem "x"

ListBox1.List(0, 1) = "Sum(x)"

For x = a To b Step h

ListBox1.AddItem x

summa = Sum(x)

If (flag) Then

ListBox1.List(i, 1) = summa

Cells(i, 1) = x

Cells(i, 2) = summa

Else

ListBox1.List(i, 1) = "Ряд расходится"