Министерство образования Республики Беларусь

Учреждение образования

«Могилевский государственный университет продовольствия»

Кафедра АТПП

Работа с VBA

Отчет по задачам

Специальность 1-36 20 01 Низкотемпературная техника

по дисциплине «Информатика»

Проверил Ст.преподаватель Н.П.Овсянникова «____» ____________2020 г

Выполнил Студент группы НТ-201 А.А.Алиев «____» ____________2020 г

Могилев 2020

Оглавление

Задание 7 3

Вариант 1 3

Задание 7

Вариант 1

Создайте пользовательскую форму на языке VBA, выводящую значения функции Добавьте в форму кнопку Отмена для завершения работы с пользовательской формой.

Исходные данные:	Результат:
x=0	0

Module1:

Sub Задание7()

UserForm1.Show

End Sub

Userform1:

Private Sub CommandButton1_Click()

Me.Hide

End Sub

Private Sub CommandButton2_Click()

Dim x, y As Double

x = CDbl(TextBox1.Text)

If x <= 0 Then

y = Math.Sin(x)

TextBox2.Text = y

End If

If x > 0 Then

y = Math.Cos(x) ^ 2

TextBox2.Text = y

End If

End Sub

Private Sub Label1_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm1_Initialize()

TextBox1.Text = ""

TextBox2.Text = ""

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Click()

End Sub