Лабораторная работа 8. Работа с формами

ЦЕЛЬ РАБОТЫ: приобретение навыков разработки интерфейса пользователя с помощью форм. Создание процедур для различных объектов, размещенных на форме и их событий.

ЗАДАНИЕ ДЛЯ ВЫПОЛНЕНИЯ РАБОТЫ

1. Открыть файл, сохраненный на прошлом занятии. Задание выполняйте на Лист2. Задайте имя листу (Ваша фамилия_Работа с формами).

2. Создайте на этом листе командную кнопку «Переход на форму».

3. Перейдите в редактор VBA и создайте три формы.

4. Оформите их, согласно образцам.

5. На первой форме поместить комбинированный список и 3 командные кнопки.

6. На второй форме разместить текстовые окна, метку и 3 командные кнопки.

7. На третьей форме поместить 3 переключатель (OptionButton), три окна изображений (Image), 3 командные кнопки и одно текстовое окно (TextBox).

8. Для кнопки «Список студентов» написать процедуру заполнения списка фамилиями студентов вашей группы.

9. Для кнопок «Переход...» написать процедуры перехода на соответствующую форму.

10. Для командной кнопки «Приветствие» написать процедуру считывания из первого текстового окна названия команды и вывода во второе текстовое окно приветствия.

11. Для командной кнопки «Показать» написать процедуру, которая при выборе одного из флажков, осуществляет вывод на форму в окно Image соответствующего рисунка (рисунок выбрать самостоятельно) и подписи этих рисунков – в текстовое окно. В случае, если ни один флажок не выбран – вывести в текстовое окно сообщение – «Вы не сделали выбор».

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

1. Как добавить в проект табличного процессора Excel пользовательскую форму?

2. Основные объекты в табличном процессоре Excel.

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

4. Назначение основных Элементов управления в проекте VBA.

5. Как создать программу обработки события на VBA?

6. Назначение пользовательских форм UserForms.

7. Как выполнить программу обработки события на пользовательской форме?

8. Как организовать заполнение комбинированных списков на пользовательской форме исходной информацией?

Лабораторная работа 9. Программирование алгоритмов разветвляющейся структуры

ЦЕЛЬ РАБОТЫ: приобретение навыков программирования вычислительных разветвляющихся процессов с использованием условного и составного операторов. Приобретение навыков создания и использования форм пользователя с различными элементами управления.

ЗАДАНИЕ ДЛЯ ВЫПОЛНЕНИЯ РАБОТЫ

1. Открыть файл, сохраненный на прошлом занятии. Задание выполняйте на Лист3. Задайте имя листу (Ваша фамилия2).

2. Оформить рабочий лист в соответствии с образцом. Исходные данные r и h задать самостоятельно, π = 3,14.

3. Внедрить на лист три элемента управления Кнопка. Изменить надписи на них, цвет кнопок, шрифт, цвет шрифта.

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

5. Кнопка Открыть форму открывает форму пользователя с элементами управления Label, TextBox и CommandButton. Для кнопки Вычислить на форме написать аналогичную программу, которая в зависимости от исходных данных вычисляет характеристики заданной фигуры и выводит результат в соответствующее окно. Исходные данные вводятся из TextBox.

6. Для кнопки Объем фигуры написать программу с использованием оператора Select Case, которая в зависимости от введенного названия фигуры (куб, шар, конус или цилиндр) вычисляет ее объем. На 8-9 баллов для кнопки Объем фигуры написать программу, которая в зависимости от введенного названия фигуры (квадрат, треугольник или окружность) вычисляет ее площадь и периметр.

7. Рассчитать характеристики заданной фигуры с помощью встроенных функций Excel. Сравнить результаты.

Пример оформления рабочего листа

Форма пользователя

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

Условие задачи	Формулы
Ввести стороны a, b и угол c. Если a<5 и b<7, то вычислить периметр параллелограмма, иначе площадь.	P = 2a+2b S = ab·sin(c)
Ввести радиус r, высоту h и образующую l. Если r>5 и h>5, то вычислить объем конуса, иначе площадь боковой поверхности.	S = πrl V = 1/3πr2h
Ввести радиус r. Если r>4 и r<10, то вычислить объем шара, иначе площадь поверхности.	S = 4πr2 V = 4/3πr3
Ввести ребро a. Если a<5 или а>10, то вычислить объем куба, иначе площадь поверхности.	S = 6a2 V = a3
Ввести стороны a, b, с. Если a<5 и b>c, то вычислить периметр треугольника, иначе площадь.	P = a+b+c
Ввести стороны a и b. Если a>5 и b>5, то вычислить периметр прямоугольника, иначе площадь.	P = 2a+2b S = ab
Ввести сторону a и угол b. Если a<8 или a>15, то вычислить периметр ромба, иначе площадь.	P = 4a S = a2·sin(b)
Ввести стороны a, b и угол c. Если a>3 и b>5, то вычислить периметр параллелограмма, иначе площадь.	P = 2a+2b S = ab·sin(c)
Ввести сторону a. Если a>3 и a<8, то вычислить периметр квадрата, иначе площадь.	P = 4a S = a2
Ввести радиус r. Если r<5 или r>15, то вычислить длину окружности, иначе площадь.	D = 2πr S = πr2
Ввести радиус r и высоту h. Если r>4 и h>4, то вычислить объем цилиндра, иначе площадь боковой поверхности.	S = 2πrh V = πr2h
Ввести стороны a, b, с. Если a>3 и b>7, то вычислить периметр треугольника, иначе площадь.	P = a+b+c
Ввести радиус r, высоту h и образующую l. Если r<9 и h<7, то вычислить объем конуса, иначе площадь боковой поверхности.	S = πrl V = 1/3πr2h
Ввести стороны a и b. Если a>5 и b>5, то вычислить периметр прямоугольника, иначе площадь.	P = 2a+2b S = ab
Ввести радиус r. Если r>3 и r<12, то вычислить длину окружности, иначе площадь.	D = 2πr S = πr2
Ввести радиус r и высоту h. Если r<8 и h<5, то вычислить объем цилиндра, иначе площадь боковой поверхности.	S = 2πrh V = πr2h