Проект программного модуля для нахождения приближенного значения бесконечной суммы (стр. 2 из 2)

If KeyAscii > 26 Then

If InStr(number, Chr(KeyAscii)) = 0 Or (InStr(TextBox3.Text, ",") > 0 And Chr(KeyAscii) = ",") Or (TextBox3.SelStart > 0 And InStr(sign, Chr(KeyAscii)) > 0) Then

KeyAscii = 0

End If

End If

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Закрытие формы

Select Case MsgBox("Закрыть окно?", vbYesNo + vbQuestion, "Завершение работы")

Case vbYes

Cancel = 0

Application.Quit

Case vbNo

Cancel = -1

End Select

End Sub

4 Тестирование программного модуля

Для тестирования программы возьмем следующие данные:

a=-1, b=1, h=0,1.

Вводим исходные данные:

Рисунок 7. Пример ввода входных данных.

После нажатия кнопки «Вычислить сумму» мы получаем таблицу результатов, где для каждого значения аргумента рассчитано значение суммы ряда:

Рисунок 8. Таблица результатов.

Рисунок 9. График функции.

Заключение

Целью данной курсовой работы была разработка программного модуля для вычисления приближенного значения бесконечной суммы с точностью до Е=0.05, если x принимает значения на отрезке [a,b] с шагом h..

Тестирование показало, что результаты, полученные разработанным программным модулем, соответствуют теоретическим расчётам. В программе присутствует обработка ошибок. При вводе ошибочные данные игнорируются, а при отсутствии введенных данных выдаётся сообщение об ошибке. Курсовая работа выполнена в полном объеме в соответствии с заданием.

Список использованных источников

1 Биллинг В.А. VBA и Office 2000. Офисное программирование. – М.: «Русская редакция», 1999.

2 Гарнаев Ю.А. Использование MS Excel и VBA в экономике и финансах. – СПб: БХВ – Санкт-Петербург, 2002.

3 Гарнаев Ю.А. самоучитель VBA. – СПб: БХВ – Санкт-Петербург, 2002.

4 Васильев А. VBA в Office 2000: учебный курс – СПб: Питер, 2002.

5 Кузьменков В.Г. VBA 2002. – М.: Издательство БИНОМ, 2002.

6 MS Office XP: Разработка приложений/Под ред. Ф.А.Новикова – СПб: БХВ – Санкт-Петербург, 2003.