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

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

2. Выполнить задание

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

1. Что представляет собой объект Document?

2. Для чего нужна коллекция Documents?

3. Укажите команду для VBA, с помощью которой можно закрыть все открытые документы?

4. С помощью какого свойства можно узнать имя файла, в котором содержится документ?

7 Задание 1:

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

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

3. В окне Project-Project найдите имя проекта документа, дважды щелкните правой кнопкой мыши по пункту This Document – Insert – UserForm. Появится окно формы с прикрепленным окном элементов управления .

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

5. Поместите на форму элементы управления: Label1, TextBox1 CommandButton1 в соответствии с условием задачи варианта. Предусмотреть ввод данных с помощью TextBox, выполнение действий над данными, вывод результата в элемент управления TextBox (свойство Text) или в Label (свойство Caption).

6. Создать заготовку процедуры обработки события нажатия на кнопку, дважды щелкнув на элемент управления CommandButton, внести в нее программный код модуля.

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

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

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

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

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

1. Ввести целое число, найти сумму цифр этого числа, вывести результат в элемент управления Label.

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

3. Ввести два целых числа Х, Y. Вычислить результат выражения 2X + 3Y³ – 4X², вывести результат в элемент управления Label.

4. Ввести координаты точки Х, Y и определить, находится ли она в круге с радиусом R, вывести результат в элемент управления TextBox.

5. Посчитать в цикле с предусловием значения функции Y= 7x² + 2х – 3 для х = 1, 2, 3, . . ., 10, вывести все результаты в один элемент управления Label.

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

7. Значения переменных X, Y, Z ввести в элементы управления TextBox, поменять их местами так, чтобы они оказались упорядоченными по возрастанию. Результаты вывести в те же элементы управления TextBox.

8. Ввести две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Результаты вывести в те же элементы управления TextBox.

9. Ввести три переменные: X, Y, Z. Если их значения упорядочены по возрастанию или убыванию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Результаты вывести в элементы управления Label.

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

Задание 2:

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

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

3. Введите код макроса:

Sub Work_With_Document()

MsgBox Application.ActiveDocument.Name

StrTemp = Application.ActiveDocument.Name

StrTemp = StrTemp & vbCrLf & Application.ActiveWindow.Caption

Application.ActiveDocument.Paragraphs.Add.Range.Text = StrTemp

StrTemp = " Число открытых документов: " & Application.Documents.Count

For i = 1 To Documents.Count

StrTemp = StrTemp & vbCrLf & i & ". " & Documents(i).Name

Next i

Application.ActiveDocument.Paragraphs.Add.Range.Text = StrTemp

Documents.Close (wdSaveChanges)

End Sub

4. Исправьте ошибки и запустите макрос на исполнение. Поясните действия операторов макроса.