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

Рисунок 6. Окно программы.

В окне программы располагаются ячейки ввода (элементы управления TextBox), таблица результатов (элемент управления ListBox) и график функции, который располагается на элементе управления Image.

После нажатия на кнопку (CommandButton) «Вычислить сумму» считываются данные, производится расчет, выводится результат.

После нажатия на кнопку «Удалить данные» данные и результат стираются.

3 Реализация программного модуля

3.1 Код программы

Dim h As Double 'шаг

Dim a As Double 'начало отрезка

Dim b As Double 'конец отрезка

Dim i As Integer 'счетчик итераций

Dim n As Integer 'счетчик итераций

Dim x As Double 'аргумент

Dim eps As Double 'точность

Dim Cn As Double '1-ый член ряда

Dim y As Double 'значение суммы ряда

Dim summa As Double 'значение суммы ряда

Dim MaxIter As Integer 'допустипое число итераций

Dim flag As Boolean 'логическая переменная

Dim usl As Boolean 'логическая переменная

Dim number As String 'строка для проверки вводимого числа

Dim sign As String 'строка для проверки знака вводимого числа

Dim ry As Range 'область данных по y для построения графика

Dim rx As Range 'область данных по x для построения графика

Private Sub UserForm_Initialize()

Application.Visible = False 'делаем Excel невидимым

number = "0123456789,-" 'строка для проверки вводимого числа

sign = "-" 'строка для проверки знака вводимого числа

eps = 0.05 'точность