Е. А. Рябухина, О. А. Гущина, Д. А. Губанов, Д. В. Емельянов

Название	Е. А. Рябухина, О. А. Гущина, Д. А. Губанов, Д. В. Емельянов
Дата	17.05.2023
Размер	3.08 Mb.
Формат файла
Имя файла	VBA.doc
Тип	Документы #1138184
страница	9 из 11

1 2 3 4 5 6 7 8 9 10 11

ЛАБОРАТОРНАЯ РАБОТА №11.

«Работа с формами»
Цель работы: изучение способов работы с формами на VBA.
Задания:

Задание 1. Создать форму, содержащую надписи, радиокнопки (OptionButton) и текстовые поля. Согласно варианту выполнить вычисления по приведенным формулам. Общий вид формы, цвет фона и формулы представлены на рис.14. Шрифт надписей: Times New Roman, курсив, размер 12.

Рис. 14. Вид формы, реализуемой в задании 1.

Вариант 1	Вариант 2	Вариант 3	Вариант 4


Вариант 5	Вариант 6	Вариант 7	Вариант 8


Вариант 9	Вариант 10	Вариант 11	Вариант 12


Вариант 13	Вариант 14	Вариант 15	Вариант 16

Задание 2. Создать форму, содержащую надписи, элементы CheckBox, текстовые поля и кнопки (CommandButton). Согласно варианту вставьте закрытый вопрос для выбора нескольких правильных ответов. Общий вид формы и цвет фона формы представлены на рис. 15. Шрифт надписей: Times New Roman, курсив, размер 12.

Рис. 15. Вид формы, реализуемой в задании 2.
Варианты заданий приведены в табл. 12.

Таблица 12

Вар-т	Закрытый вопрос для выбора нескольких правильных ответов
1	Имена переменных в VBA могут быть: D1, И17, 56F, aLfa, P-3.
2	Графический файл может иметь расширение: jpeg, tiff, doc, xls, bmp, txt.
3	Сера имеет валентность: 2, 3, 4, 5, 6.
4	К металлам относятся: Fe, F, S, Pb, Au, Cl.
5	В Южной Америке находятся: Парагвай, Уганда, Венесуэла, Эквадор, Руанда.
6	Русскими художниками являются: Верещагин, Бутлеров, Бородин, Перов, Суриков.
7	Единицами длины являются: метр, фут, фунт, ярд, аршин, литр.
8	Диапазон ячеек в VBA может обозначаться «A2:B4», «G7:G14», «E9/J9» «F1:A1» «R3-R8».
9	Переменная V, используемая в операторе V=10 может иметь тип: Integer, String, Byte, Boolean, Date.
10	Плоскими фигурами являются: квадрат, треугольник, пирамида, куб, круг.
11	Существуют следующие типы алгоритмов: линейные, циклические, замкнутые, концентрические.
12	В графических программах используются цветовые модели: RGB, BGYC, CMYK, HSB, WBR.
13	К инертным газам относятся: аргон, фотон, ксенон, неон, дублон.
14	В программу Олимпийских игр не входят: хоккей, прыжки с шестом, бег с препятствиями, дайвинг, стрельба из рогатки.
15	Среди знаков Зодиака присутствуют: Лошадь, Корова, Свинья, Курица, Пчела, Собака.
16	К графическим программам относятся: MS DOS, PhotoShop, CorelDraw, AutoCad, MathLab, STATISTICA.
17	К парусным судам относятся: клипер, твиттер, корвет, бригантина, крейсер.
18	Среди имен русских императоров неоднократно встречались: Павел, Александр, Иван, Николай, Петр, Константин.
19	При однократном бросании игрального кубика возможны следующие варианты: менее 3 очков, 3 очка, более 5 очков, более 7 очков.
20	В состав бронзы обязательно входят: медь, никель, железо, серебро, олово.

Задание 3. Создать форму, содержащую надписи, элемент СомвоBox и две кнопки (CommandButton). Согласно варианту вставьте закрытый вопрос для выбора единственного правильного ответа. Общий вид формы и цвет фона формы представлены на рис. 16. Шрифт надписей: Times New Roman, курсив, размер 12.

Рис. 16. Вид формы, реализуемой в задании 3.
Варианты заданий приведены в табл. 13.

Таблица 13

Вар-т	Закрытый вопрос для выбора единственного правильного ответа
1	Самой крупной планетой Солнечной системы является: Земля, Венера, Юпитер, Плутон.
2	В 1825 году произошло: Куликовская битва, отмена крепостного права, восстание декабристов, премьера оперы «Иван Сусанин».
3	Из озера Байкал вытекает: Енисей, Ангара, Иртыш, Обь.
4	Самой крупной кошкой является: рысь, тигр, лев, ягуар, гепард.
5	Столицей Индии является: Калькутта, Дели, Бомбей, Нью-Дели, Лхаса
6	Единицей освещенности является: ампер, ватт, люкс, герц.
7	Горение относится к реакциям: обмена, замены, окисления, замещения, превращения.
8	Быстрее всех остальных растет: сосна, дуб, бамбук, баобаб, финиковая пальма.
9	Гора Килиманджаро расположена в: Африке, Австралии, Южной Америке, Гималаях.
10	Зевс был верховным богом: греков, римлян, шумеров, египтян.
11	Из древесных пород наиболее устойчива к гниению: липа, осина, сосна, лиственница, береза.
12	Из перечисленных планет ближней к Солнцу является: Земля, Сатурн, Юпитер, Венера.
13	Поэму «Мцыри» написал: Пушкин, Лермонтов, Державин, Тютчев.
14	Автор слов «Как ныне сбирается вещий Олег…»: летописец Нестор, Лермонтов, Пушкин, Достоевский, Солженицын.
15	Россия не имеет выхода к морю: Белому, Черному, Красному, Саргассову, Баренцеву.
16	Если известно, что переменная М может принимать только значения 3, -7, 60, 45 и 90, то целесообразнее ее определить типом: Byte, Integer, Long, Double.
17	Десятичное число 12 в двоичной системе равно: 1010, 1011, 1100, 1001.
18	Свойство .Font.Size определяет: тип шрифта, размер шрифта, цвет шрифта, наклон шрифта.
19	Из представленных в различных системах чисел наименьшим числом является: 15(10), 13(8), 10(16), 17(2).
20	Русским путешественником не являлся: Г. Седов, Н. Пржевальский, В. Беринг, Р. Амудсен, Ф. Беллинсгаузен.

Примеры выполнения заданий

Задание 1.

Условие: создать форму, содержащую надписи, радиокнопки (OptionButton) и текстовые поля. Выполнить вычисления согласно приведенным формулам. Общий вид формы, цвет фона и формулы представлены на рис. 14. Шрифт надписей: Times New Roman, курсив, размер 10.
Порядок работы с формой:

Перейти в редактор VBA и в пункте Insert выбрать вариант UserForm. На экране появится форма.
Свойство Caption изменяем на Задание1, цвет фона устанавливаем в свойстве BackColor в пункте Palette (на рис.14 цвет установлен голубой).
С помощью панели инструментов (ToolBox) помещаем на форму следующие объекты:

– три надписи (Label), определяющие пояснительный текст;

– три текстовых поля (TextBox), в которые вводятся значения переменных x, y, z;

– три объекта OptionButton, определяющие формулу, по которой выполняются вычисления;

– надпись, определяющая результат;

– текстовое поле, в котором выводится результат;

– две кнопки, одна из которых производит вычисления, а вторая очищает все текстовые поля.

4) Изменяем тексты надписей в свойстве Caption на «Введите x», «Введите y», «Введите z», «Результат». Шрифт надписей изменяем с помощью свойства Font. Для этого щелкаем мышью на кнопке с многоточием и в открывшемся окне выбираем тип шрифта – Times New Roman, эффект – жирный курсив, размер шрифта – 10, цвет фона надписей выбираем с помощью свойства BackColor в пункте Palette. Устанавливаем рамки надписей с помощью свойства BorderStyle со значением 1.

5) Тексты кнопок CommandButton с помощью свойства Caption заменяем соответственно на «Выполнить» и «Очистить».

6) Щелкаем на кнопках Выполнить и Очистить и вводим текст программы:

Private SUB ОЧИСТИТЬ_Click()

TextBox2.Value = ""

TextBox1.Value = ""

TextBox3.Value = ""

TextBox4.Value = ""

OptionButton1 = False

OptionButton2 = False

OptionButton3 = False

End SUB

Private SUB UserForm_Click()

End SUB

Private SUB ВЫПОЛНИТЬ_Click()

Dim x As Single, y As Single, z As Single, t As Single

x = Val(TextBox1.Value)

y = Val(TextBox2.Value)

z = Val(TextBox3.Value)

If OptionButton1 = True Then t = x + y / z

If OptionButton2 = True Then t = y + z / x

If OptionButton3 = True Then t = z + x / y

TextBox4 = Format(T, "00.00")

End SUB
Задание 2.

Условие: создать форму, содержащую надписи, элементы CheckBox, текстовые поля, кнопки (CommandButton) и выполнить выбор нескольких правильных ответов. Общий вид формы, цвет фона формы и закрытый вопрос представлены на рис. 15. Шрифт надписей: Times New Roman, курсив, размер 10.
Порядок работы с формой:

Перейти в редактор VBA и в пункте Insert выбрать вариант UserForm. На экране появится форма.
Свойство Caption изменяем на Задание1, цвет фона устанавливаем в свойстве BackColor в пункте Palette (на рис. 15 цвет установлен розовый).
С помощью панели инструментов (ToolBox) помещаем на форму следующие объекты:

– надпись (Label), определяющая текст вопроса;

– пять элементов CheckBox, определяющие ответ;

– надпись, определяющая результат;

– две кнопки, одна из которых производит вычисления, а вторая очищает все текстовые поля.

4) Изменяем тексты элементов CheckBox в свойстве Caption на «Метр», «Килограмм», «Фут», «Ярд», «Пуд» Шрифт надписей изменяем с помощью свойства Font. Для этого щелкаем мышью на кнопке с многоточием и в открывшемся окне выбираем тип шрифта – Times New Roman, эффект – жирный курсив, размер шрифта – 10, цвет фона надписей выбираем с помощью свойства BackColor в пункте Palette. Устанавливаем рамки надписей с помощью свойства BorderStyle со значением 1.

5) Тексты кнопок CommandButton с помощью свойства Caption заменяем соответственно на «Выполнить» и «Очистить».

6) Щелкаем на кнопках Выполнить и Очистить и вводим текст программы:

Private SUB ВЫПОЛНИТЬ_Click()

If (CheckBox1 = True) And (CheckBox2 = False) And (CheckBox3 = True) And (CheckBox4 = True) And (CheckBox5 = False)

Then Label4.Caption = "Правильно"

Else Label4.Caption = "Heправильно"

End SUB

Private SUB ОЧИСТИТЬ_Click()

UserForm1.Hide

CheckBox1 = False

CheckBox2 = False

CheckBox3 = False

CheckBox4 = False

CheckBox5 = False

End SUB
Задание 3.

Условие: создать форму, содержащую надписи, элемент СомвоBox, две кнопки (CommandButton) и выполнить выбор единственного правильного ответа. Общий вид формы, цвет фона формы и закрытый вопрос представлены на рис. 16. Шрифт надписей: Times New Roman, курсив, размер 10.
Порядок работы с формой:

Перейти в редактор VBA и в пункте Insert выбрать вариант UserForm. На экране появится форма.
Свойство Caption изменяем на Задание1, цвет фона устанавливаем в свойстве BackColor в пункте Palette (на рис.16 цвет установлен бежевый).
С помощью панели инструментов (ToolBox) помещаем на форму следующие объекты:

– надпись (Label), определяющую текст вопроса;

– элемент ComboBox, определяющий набор значений, из которого выбирается единственно правильный результат;

– текстовое поле, в котором выводится результат;

– две кнопки, одна из которых производит вычисления, а вторая очищает все текстовые поля.

4) Изменяем текст надписи в свойстве Caption на текст вопроса. Шрифт надписей изменяем с помощью свойства Font. Для этого щелкаем мышью на кнопке с многоточием и в открывшемся окне выбираем тип шрифта – Times New Roman, эффект – жирный курсив, размер шрифта – 10, цвет фона надписей выбираем с помощью свойства BackColor в пункте Palette. Устанавливаем рамки надписей с помощью свойства BorderStyle со значением 1.

5) Тексты кнопок CommandButton с помощью свойства Caption заменяем соответственно на «Выполнить» и «Очистить».

6) Щелкаем на кнопках Выполнить и Очистить и вводим текст программы:

Private SUB CommandButton1_Click()

If ComboBox1.Value = "Китай"

Then Label1.Caption = "Правильно"

Else Label1.Caption = "He правильно"

End SUB

Private SUB CommandButton2_Click()

UserForm1.Hide

ComboBox1.Value = ""

End SUB

Private SUB UserForm_INITIALIZE()

ComboBox1.List = Array("Китай", "Индия", "Бразилия", "Египет")

ListIndex = -1

End SUB

Private SUB UserForm_Click()

End SUB

1 2 3 4 5 6 7 8 9 10 11