Практическое занятие № 9 Разработка кода программного модуля и его отладка в инструментальной среде vba

1 Цель занятия

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

2 Оборудование рабочего места и программное обеспечение.

Персональный компьютер.

Microsoft Office Word 2007

3 Краткие теоретические сведения.

Среда программирования VBA позволяет создавать программные модули (макросы) с формой и без формы. Для создания макроса без формы надо войти в среду программирования приоткрытом приложении (Word или Excel) путем нажатия клавиш Alt-F11. В открывшемся окне редактора найдите в окне Project-Normal имя проекта документа, дважды щелкните левой кнопкой мыши по пункту This Document. На рабочем поле окна редактора появится окно для создания макроса, который будет использоваться только в этом документе.

Структура макроса:

Sub <имя макроса> ()

<Операторы макроса>

End sub

В тексте макроса надо предусмотреть ввод данных, если это требуется по условию задачи, обработку этих данных и вывод результата.

Ввод данных можно выполнять с помощью функции InputBox(“Подсказка для ввода”).

Например:

X = InputBox(“Ввести Х”).

При этом в переменную Х занесется введенное значение, оно всегда имеет тип String, поэтому для работы с числами надо использовать функции перевода из строки в число и обратно (для вывода чисел в текстовом формате):

X = val (InputBox(“Ввести Х”)) – перевод Х из строки в число функцией val.

S = Str(X) – перевод из числа в строку функцией Str.

Вывод результата можно выполнять в окно сообщений MsgBox(“Строка сообщения”).

Например:

MsgBox(“Результат = ” & Str(X))

Здесь знак & обозначает объединение строк.

Используемая литература.

1. Конспект лекций.

2. Вик Курилович Visual Basic for Application, стр. 134-136, 2010г.

3. И.Г.Фризен Офисное программирование, стр.18-23, 2011г.

4 Порядок выполнения работы

1. Изучить теоретические сведения и задание к работе.

2. Выполнить задание и сохранить его в папке на своем диске.

3. Ответить на контрольные вопросы.

5 Содержание отчета

1. Наименование практической работы.

2. Цель работы.

3. Конкретное задание и его выполнение.

4. Ответы на контрольные вопросы.

6 Контрольные вопросы

1. Как создать программный модуль для MS Word?

2. Как выполнить ввод и вывод данных?

3. Какие функции преобразования данных вы знаете?

4. Как выполнить отладку модуля и запустить его на исполнение?

7 Задание:

1. Запустить текстовый процессор MS-Word.

2. Нажать сочетание клавиш Alt+F11 для перехода в редактор VBA.

3. В окне Project-Normal найдите имя проекта документа, дважды щелкните левой кнопкой мыши по пункту This Document.

4. В окне редактора появится окно для создания макроса.

5. Ознакомьтесь с заданием варианта и выполните спецификацию (описание исходных данных и результатов с указанием имен переменных и их типов).

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

7. Выполнить отладку модуля с помощью меню Debug-Compile Project. Если в коде программы есть ошибки, то появится сообщение о них, ошибки надо исправить, а потом запустить модуль на исполнение командой Run (или нажать на зеленый треугольник в панели инструментов).

8. Сохранить файл приложения на своей учетной записи, используя тип файла с поддержкой макросов.

9. Написать отчет по выполненной работе в тетрадь.

10. Ответить письменно на контрольные вопросы

Варианты заданий

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

2. Ввести два целых числа, вывести сообщение о числах: “число1 больше числа2”, “число1 меньше числа2”, “число1 равно числу2”.В сообщениях использовать значения числа1 и числа2.

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

4. Ввести координаты точки и определить, в какой четверти координатной сетки она находится, вывести результат в окно сообщений.

5. Посчитать в цикле с параметром значения функции Y= 3x² + 5х – 4 для х = 1, 3, 5, . . ., 14, вывести все результаты в одно окно сообщений.

6. Посчитать в цикле с постусловием значения функции Y= Аx² + Вх+ С для х = 1, 3, 5, . . ., 14, вывести все результаты в одно окно сообщений. Коэффициенты ввести функцией InputBox.

7. Для уравнения Аx² + Вх+ С = 0 определить, есть ли у него корни и найти их, или вывести сообщение «В уравнении нет вещественных корней».

8. В цикле с предусловием найти значения функции Y = 4х² + 5х – 3 для х = 1, 2, 3, . . ., 15 вывести все результаты в одно окно сообщений.

9. В цикле с предусловием найти значения функции Y = 3х² – 6х – 4 для х = 1, 2, 3, . . ., 11 вывести все результаты в одно окно сообщений.

10. Посчитать в цикле с постусловием значения функции Y=Ах³ + С для х = 2, 4, 6, . . ., 10, вывести все результаты в одно окно сообщений. Коэффициенты ввести функцией InputBox.