Оформление протокола лабораторной работы

1. Записать номер лабораторной работы и цель ее проведения.

2. Привести условие индивидуального задания.

3. В текстовом редакторе привести алгоритмы решения поставленной задачи и записать в личную папку под именем Лаб. 2.

4. Подготовиться для ответа на контрольные вопросы.

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

1. Дайте определение одномерного массива данных.

2. Как записать элемент одномерного массива в общем виде?

3. Как записать конкретный элемент одномерного массива?

4. Приведите фрагмент ввода - вывода элементов одномерного массива.

5. Как выделять четные и нечетные элементы одномерного массива?

6. Как определить номер элемента в одномерном массиве?

7. В чем сущность метода претендентов элементов на мин. или мах?

8. Дайте определение двумерного массива.

9. Как записать имя элемента двумерного массива в общем виде?

10. Как записать конкретный элемент двумерного массива?

11. Приведите фрагмент ввода элементов двумерного массива по строкам.

12. Приведите фрагмент ввода элементов двумерного массива по столбцам.

13. Приведите фрагмент суммы элементов двумерного массива по столбцам.

Л а б о р а т о р н а я р а б о т а № 3

Система программирования в VBA и создание элементарного проекта

Цель работы: запуск и ознакомление с интерфейсом VBA, создание и выполнение 2 – х ознакомительных проектов. При подготовке к работе изучить теоретический материал (с.10 – 17).

Запуск и подготовка интерфейса VBA

1. Загрузить Excel. Запустить VBA командами Сервис, Макрос, Редактор Visual Basic. Открывается окно редактора VBA, в котором нужно вывести окно обозревателя проекта командами View, Project Explorer .

2. Вывести окно свойств объектов командами View, Properties Window.

3. Создать окно формы 1 командами Insert, UserForm. Появляется окно формы 1 совместно с панелью элементов управления (ToolBox). Размеры формы 1 корректируем с помощью мыши и маркеров формы. В обозревателе виден значок созданной формы 1(UserForm1).

Задание №1. Создать простейший проект ″Приветствие″ в vba:

• И

  

  Рис. Л3.1. Интерфейс проекта

  нтерфейс пользователя состоит из формы 1 и трех элементов управления на форме: кнопкиЗапуск (CommandButton1), кнопки Закрыть ( CommandButton2) и элемента TextBox1 (рис. Л3.1).

• Р

  

  Рис. Л3.2. Работа проекта

  езультатом выполнения проекта является вывод на экран формы 1(рис. Л3.2) и при активизации мышкой кнопки Запуск появляется в текстовом окне приветствие ″Вас приветствует VBA″. При активизации кнопки Закрыть – проект закрывается.

1. Разработка интерфейса пользователя.

Установить мышкой на форму 1 два элемента управления CommandButton (кнопки) и один элемент TextBox.

Ниже представлена таблица Л3.1, на основании которой будут установлены свойства объектов

Таблица Л3.1 — Таблица свойств элементов формы 1

Элемент (Объект )	Свойство	Значение свойства
Кнопка 1	Caption	Запуск
Кнопка 2	Caption	Закрыть

2

Рис. Л3.3. Окно кода

. Установка свойств кнопок.Активизировать мышкой кнопку 1 и в окне свойств (Properties), найти свойство Caption и справа от этого слова ввести его значение - Запуск. Аналогично для кнопки 2 справа от Caption ввести Закрыть.

3. Запись процедур отклика (программ) на событие командных кнопок. Открыть окно кода. Для этого достаточно дважды щелкнуть кнопку 1. Открывается окно кода и в нем мигающий курсор между операторами Private Sub CommandButton1_Click и End Sub (рис. Л3.3). В месте мигающего курсора ввести: TextBox1. Text = ″ Вас приветствует VBA″ .

Аналогично двойным щелчком по кнопке 2 устанавливается в окне кода на месте мигающего курсора команду End. Таким образом, подготовлены две процедуры отклика для командных кнопок.

Сохранение нового проекта в рабочей книге

Выполнить команды File, Save. В открывшемся окне указать путь к личной папке, создать папку Второй семестр, ввести имя файла книги Лаб. 3 и щелкнуть кнопку сохранить.

Запуск проекта в VBA

1. Активизировать форму запускаемого проекта (или вывести окно кода).

2. Выполнить команды Run, а затем Run Sub/UserForm .

3. В появившейся форме щелкнуть кнопку Запуск. Произойдет выполнение программы с выводом приветствия.

4. Закрыть проект, щелкнув кнопку Закрыть на форме.

Задание №2. Создать демонстрационный проект ″Определение минимальной поверхности консервной банки заданного объема″. Более подробно это изложено в главе 2 (2.1. Основные положения) и главе 3 (3.1. Порядок действий на ПК при создании проекта).

1

Рис. Л3.4. Форма 2 и обозреватель проекта

. Интерфейс пользователя. Создать форму 2 командами Insert, UserForm. Появляется окно формы 2 совместно с панелью элементов управления (ToolBox). Размеры формы корректируем с помощью мыши и маркеров формы. В обозревателе виден значок созданной формы 2 (UserForm2). Интерфейс пользователя состоит из десяти объектов (рис. Л3.4), свойства которых представлены в табл. Л3.2.

Таблица Л3.2 – Таблица свойств объектов формы 2

	Объекты	Свойство	Значение	Примечание
1	Label1	Caption	Ввод V	Надпись
2	Label2	Caption	Значение R	Надпись
3	Label3	Caption	Значение h	Надпись
4	Label4	Caption	Значение S	Надпись
5	TextBox1	Text		Для ввода V
6	TextBox2	Text		Для вывода R
7	TextBox3	Text		Для вывода h
8	TextBox4	Text		Для вывода S
9	Кнопка 1	Caption	Запуск	Запуск
10	Кнопка 2	Caption	Выход	Закрыть

2

Рис. Л3.5. Установленные свойства

. Установить свойства объектов № 1 – 4 и № 9 – 10 согласно табл. Л3.2 и аналогично 1 заданию (рис. Л3.5).

3. Записать процедуры отклика на событие командных кнопок. Дважды щелкним кнопку 1. В результате выводится окно кода с двумя строками процедуры отклика, между которыми установлен курсор для набора программы. Вводим программу:

Dim V, r, h, s As Single ‘ Описание переменных

V = Val(TextBox1.Text) ‘ Присвоение V численного значения

r = (V / (2 * 3.14)) ^ (1 / 3) ‘ Вычисление r

h = V / (3.14 * r ^ 2) ‘ Вычисление h

s = 2 * 3.14 * r ^ 2 + 2 * 3.14 * r * h ‘ Вычисление S

TextBox2 = Format(r, “##0.###” & « м.») ‘ Вывод r в окно TextBox2

TextBox3 = Format(h, “##0.###” & « м.») ‘ Вывод h в окно TextBox3

TextBox4 = Format(s, “##0.###” & « м.куб») ‘ Вывод S в окно TextBox4

Аналогично двойным щелчком по кнопке 2 устанавливаем в окне кода на месте мигающего курсора команду End. Таким образом, подготовлены две процедуры отклика для командных кнопок.

Запуск проекта в VBA с формой 2

1. Активизировать мышкой форму 2 (или вывести окно кода).

2. Выполнить команды Run, а затем Run Sub/UserForm .

3. В появившейся форме 2 ввести значение объема (например, число 2 – два литра) и щелкнуть кнопку Запуск. Произойдет выполнение программы с выводом значений рассчитанных значений радиуса, высоты и минимальной поверхности банки.

4. Записать полученные данные. Пункт 3 выполнить для нескольких заданных объемов банки. Закрыть проект, щелкнув кнопку Закрыть на форме.

Для сохранения проекта просто выполнить команду Save.

Выход из режима VBA в Excel

Выполнить команды File (Файл), Close (закрыть).