МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
ХАРКІВСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ РАДІОЕЛЕКТРОНІКИ
Кафедра ПЗЕОМ
ЗВІТ
з лабораторної работи №1
на тему: «ОЗНАЙОМЛЕННЯ З СЕРЕДОВИЩЕМ VBA. ВИВЧЕННЯ ВБУДОВАНИХ ФУНКЦІЙ»
з дисципліни «Інформатика»
Виконала: Перевірив:
ст. гр. ВПС-08-2 Новіков Ю.С.
Нанiвська К. О.
1 ОЗНАЙОМЛЕННЯ З СЕРЕДОВИЩЕМ VBA. ВИВЧЕННЯ ВБУДОВАНИХ ФУНКЦІЙ
1. Опрацювали теоретичний матеріал до лабораторної роботи.
2. Завантажили додаток MS OFFICE.
3. Виконали завдання на лабораторну роботу пункти 1-9.
4. Зберегти виконаний файл.
5. Оформити звіт.
1.3. Завдання до лабораторної роботи
1. Розмістити на формі наступні елементи:
- Label1;
- TextBox1;
- CommandButton1.
2. Активізувати Label1, у вікні властивостей знайти властивість Caption та змініть Label1 на назву факультету.
3. Ті ж дії провести з CommandButton1, змінюючи Caption на - ОК.
4. Активізувати TextBox1 та змінити властивість Text на назву в групи.
5. За допомогою елементу Выбор объекта видіти усі елементи на формі. У вікні властивостей можна роздивитись які з властивостей однакові для всіх елементів. Змінюючи властивість Font (полужирный, курсив, розмір шрифту 15), Back Color (світла тінь для кнопки), Visible(False), прослідкувати всі зміни елементів управління на формі.
6. Здійснити запуск програми за допомогою кнопки Запуск на панелі інструментів або меню Запуск>Запуск программы.
7. Повернутися у режим конструктора VBA.
8. Виділити усі об’єкти та змінити тільки властивість Visible (True) та знову здійснити запуск програми.
9. Самостійно змінити інші властивості елементів цієї форми та зафіксувати їх зміни.
Код:
Private Sub CommandButton1_Click()
TB3.Text = Val(TB1.Text) + Val(TB2.Text)
End Sub
Private Sub CommandButton2_Click()
TB3.Text = Val(TB1.Text) * Val(TB2.Text)
End Sub
Private Sub CommandButton3_Click()
If TB2.Text = "" Then MsgBox "!!!Невозможно!!!"
If TB2.Text = 0 Then MsgBox "!!!Навозможно!!!"
If TB2 = 0 Then TB3.Text = "" Else TB3.Text = Val(TB1.Text) \ Val(TB2.Text)
End Sub
Private Sub CommandButton4_Click()
TB3.Text = Val(TB1.Text) - Val(TB2.Text)
End Sub
Private Sub CommandButton5_Click()
If TB2.Text = "" Then MsgBox "!!!Невозможно!!!"
If TB2.Text = 0 Then MsgBox "!!!Невозможно!!!"
If TB2 = 0 Then TB3.Text = "" Else TB3.Text = Val(TB1.Text) / Val(TB2.Text)
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.