ЛАБОРАТОРНАЯ РАБОТА №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.
Порядок работы с формой:

1. 
   Перейти в редактор VBA и в пункте Insert выбрать вариант UserForm. На экране появится форма.
   
2. 
   Свойство Caption изменяем на Задание1, цвет фона устанавливаем в свойстве BackColor в пункте Palette (на рис.14 цвет установлен голубой).
   
3. 
   С помощью панели инструментов (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.
Порядок работы с формой:

1. 
   Перейти в редактор VBA и в пункте Insert выбрать вариант UserForm. На экране появится форма.
   
2. 
   Свойство Caption изменяем на Задание1, цвет фона устанавливаем в свойстве BackColor в пункте Palette (на рис. 15 цвет установлен розовый).
   
3. 
   С помощью панели инструментов (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. Шрифт надписей:

---

Смотрите также файлы

• История развития отечественной социальной психологии.docx

• Мои права и обязанности.docx

• 8 сынып Алгебра бжб 4 тосан. І нса. Тапсырма.docx

• Тренировка личного состава 185пч 22огпс на оппп. Вид занятия практическое Отведенное время 1 (ч) Цель занятия.doc

• Методические указания производственная практика (преддипломная практика).docx