Практическое занятие №2 Тема «Разработка приложения с использованием кнопок, надписей и функции создания случайного числа»
Цели занятия:
закрепление полученных знаний по теме «Основные элементы и объекты VBA»;
формирование умения создавать простые приложения в VBA;
формирование умения осуществлять разработку кода программного модуля на современных языках программирования.
Вопросы для актуализации опорных знаний:
как создать пользовательскую форму?
что называют элементом управления?
какие основные свойства элементов управления Надпись и Кнопка?
как работает функция создания случайного числа?
Задания для практического занятия и инструктаж по их выполнению
Задание №1 Спроектировать форму для вычисления умножения, сложения, вычитания и деления двух чисел, заданных датчиком случайных чисел.
Запустите Excel.
Загрузите VBA. СервисàМакросàРедактор Visual Basic.
Проверьте, чтобы на экране появилось окно проекта и окно свойств.
Выполните команду «Вставить форму» или InsertàUserForm, назовите форму «Вычисления» и вызовите панель Toolbox
Спроектируйте в форме 4 командные кнопки CommandButton и пять надписей Label.
Значения свойств объектов установите самостоятельно.
Объект |
Заголовок(CAPTION) |
Назначение |
Label1 |
Первое число |
Комментарий |
Label2 |
Второе число |
Комментарий |
Label3 |
Ответ |
Для вывода результата |
Label4 |
(пусто) |
Значение первого числа |
Label5 |
(пусто) |
Значение второго числа |
CommandButton1 |
Х |
Перемножение чисел |
CommandButton2 |
+ |
Сложение чисел |
CommandButton3 |
- |
Вычитание чисел |
CommandButton4 |
: |
Деление чисел |
CommandButton5 |
Выход |
Закрыть форму |
Должно получиться:
В форме дважды щелкните на кнопке «Х», чтобы вывести заготовку программы:
Программа начинается с заголовка Private Sub и заканчивается предложением End Sub (конец процедуры). Между этими предложениями запишите текст программы:
Randomize
Label4.Caption = Int(Rnd * 90)+1)
Label5.Caption = Int(Rnd * 90)+1)
Label3.Caption = Label4.Caption* Label5.Caption
Аналогично для кнопок + - : и Выход программа будет следующая:
+
Randomize
Label4.Caption = Int(Rnd * 90)+1)
Label5.Caption = Int(Rnd * 90)+1)
Label3.Caption = Val(Label4.Caption)+ Val(Label5.Caption)
-
Randomize
Label4.Caption = Int(Rnd * 90)+1)
Label5.Caption = Int(Rnd * 90)+1)
Label3.Caption = Label4.Caption- Label5.Caption
:
Randomize
Label4.Caption = Int(Rnd * 90)+1)
Label5.Caption = Int(Rnd * 90)+1)
Label3.Caption = Label4.Caption / Label5.Caption
Выход
UserForm1.Hide
Проверьте работоспособность формы, с помощью команды RunàRun Sub/UserForm (ВыполнитьàВыполнить процедуру/экранную форму), или нажать на кнопку в меню
,
или клавишу F5.На листе Excel создайте кнопку вызова формы и назовите ее «Вычисления», переименуйте Лист1 в лист «Вычисления».
Вызовите Панель Элементов управления и нарисуйте с помощью ее кнопку. Выделив кнопку, вызовите через правую кнопку мыши Свойства и на панели Properties отформатируйте ее.
Выделите кнопку «Вычисления», нажмите на панели элементов управления кнопку «Исходный текст»
Запишите программу вызова формы: UserForm1.Show
Проверьте работу программы.
Результат предъявите преподавателю.