Файл: Отчет по учебной практике пм 04 уп 04. 01. Выполнение работ по одной или нескольким рабочим профессиям, должностям служащих.docx

Министерство цифрового развития государственного управления,

информационных технологий и связи Республики Татарстан

государственное автономное профессиональное образовательное учреждение

«Международный центр компетенций –

Казанский техникум информационных технологий и связи»


ОТЧЕТ

ПО УЧЕБНОЙ ПРАКТИКЕ

ПМ 04 УП 04.01. Выполнение работ по одной или нескольким рабочим профессиям, должностям служащих

Выполнил обучающийся
группа		специальность

Оценка

( )

Начало практики: 11.05.23	Родионова А.А.
Окончание практики: 17.05.23	(ФИО и подпись руководителя практики)
Начало практики: 18.05.23	Сулимов Ф.К.
Окончание практики: 24.05.23	(ФИО и подпись руководителя практики )

Казань, 2023 г.

СОДЕРЖАНИЕ

.

.

.

ЗАКЛЮЧЕНИЕ

ПРОГРАММИРОВАНИЕ В VBA

ОСНОВНЫЕ ЭЛЕМЕНТЫ VBA

Задание 1. Принадлежит ли точка A(x,y) закрашенной области (рис.1)? Для ввода координат точки и вывода результата создать диалоговое окно.





Рисунок 2. Форма для ввода данных. Задание 1.

Код программы:

Private Sub CommandButton1_Click()

Dim x As Double, y As Double

x = TextBox1.Text

y = TextBox2.Text

---

If x >= -2 And x <= 4 And y >= 0 And y <= 2 Then

Label4.Caption = "да"

Else

Label4.Caption = "нет"

End If

End Sub

Private Sub CommandButton2_Click()

TextBox1.Text = ""

TextBox2.Text = ""

Label4.Caption = ""

End Sub

Private Sub CommandButton3_Click()

Unload Me

End Sub

Задание 2. Создать программу для вычисления площадей геометрических фигур: прямоугольника, квадрата, трапеции, треугольника по трем сторонам, круга и кольца. Для ввода исходных данных на рабочем листе установить три поля ввода TextBox. Для управления видимостью второго и третьего полей ввода установить два флажка CheckBox. При установленных флажках второе и третье поля невидимы. На рабочем листе создать кнопочное меню - установить командные кнопки «Площадь прямоугольника», «Площадь квадрата», «Площадь трапеции», «Площадь треугольника», «Площадь круга», «Площадь кольца», «Очистить». Результат вывести с помощью окна сообщений.



Рисунок 3. Форма для ввода данных. Задание 2.

Код программы:

Private Sub UserForm_Click()

Dim a, b, c As Long

Private Sub CheckBox1_Click()

If CheckBox1.Value Then

TextBox2.Visible = False

---