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

Image1.Visible = True

End Sub

Private Sub CommandButton2_Click() 'Кнопка "Удалить данные"

ListBox1.Clear 'очищаем ListBox1

TextBox1.Value = "" 'очищаем TextBox1

TextBox2.Value = "" 'очищаем TextBox2

TextBox3.Value = "" 'очищаем TextBox3

TextBox1.SetFocus

CommandButton1.Enabled = True 'делаем кнопку "Вычислить сумму" доступной

Image1.Visible = False

End Sub

Private Sub CommandButton3_Click()

If MsgBox("Закрыть окно?", vbYesNo + vbQuestion, "Завершение работы") = vbYes Then

UserForm1.Hide

Application.Quit

End If

End Sub

Public Function Sum(x As Double) As Double 'Функция вычисления суммы бесконечного ряда

MaxIter = 100

Cn = 1

y = x

n = 0

flag = True

usl = True

Do While (Abs(Cn) > eps)

Cn = Cn * (x * x / ((2 * n + 2) * (2 * n + 3)))

y = y + Cn

n = n + 1

If (n > MaxIter) Then