Курсовая работа: Основы программирования на VBA модель объектов Exel

Load UserForm1

UserForm1.Show

Пользователь должен ввести исходные данные и запустить расчёт, используя кнопку «Подсчитать». Результат отображается на рабочий лист. Тестовый пример приведен в Приложении Б.

Используя основные критерии оценки эффективности функционирования программного модуля, описанные в пункте «Математическое описание задачи» можно сделать вывод о работоспособности и оптимальности программного модуля.

Заключение

В контрольной работе на тему «Основы программирования на VBA: Модель объектов EXEL» был разработан и реализован программный модуль с пользовательской формой. Программный модуль обеспечивает ввод исходных данных, расчет заданной математической функции и вывод результатов на рабочий лист.

В процессе работы была разработана математическая модель задачи, схема алгоритма, код программы на языке VBA, пользовательский интерфейс и проведено тестирование программного модуля.

Список использованной литературы

1. Р. Петерсон. Microsoft Excel 97 в подлиннике: В 2т.: пер. с англ.-СПб.:BHV-Санкт-Петербург, 1997. Том 1 – 672 с., ил.

2. У.Орвис. Visual Basic for application.-М. Бином 1995.

Приложение А. Программный код

Public N_auto, M_auto, M_benz, q, B, E As String

Public O_prob, Potr, Zena, O_stoim As Single

'Процедура по нажатию кнопки "подсчитать"

Private Sub CommandButton1_Click()

N_auto = UserForm1.TextBox1

If N_auto = "" Then

B = MsgBox("Введите номер автомобиля", vbCritical, "")

'Фокусирование на поле ввода

UserForm1.TextBox1.SetFocus

GoTo s

End If

M_auto = UserForm1.TextBox2

If M_auto = "" Then

B = MsgBox("Введите марку автомобиля", vbCritical, "")

UserForm1.TextBox2.SetFocus

GoTo s

End If

M_benz = UserForm1.TextBox3