Файл: Отчет по учебной практике пм 04 уп 04. 01. Выполнение работ по одной или нескольким рабочим профессиям, должностям служащих.docx
Добавлен: 09.11.2023
Просмотров: 124
Скачиваний: 3
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Министерство цифрового развития государственного управления,информационных технологий и связи Республики Татарстангосударственное автономное профессиональное образовательное учреждение«Международный центр компетенций –Казанский техникум информационных технологий и связи»ОТЧЕТПО УЧЕБНОЙ ПРАКТИКЕПМ 04 УП 04.01. Выполнение работ по одной или нескольким рабочим профессиям, должностям служащих
Казань, 2023 г.
If x >= -2 And x <= 4 And y >= 0 And y <= 2 ThenLabel4.Caption = "да"ElseLabel4.Caption = "нет"End IfEnd SubPrivate Sub CommandButton2_Click()TextBox1.Text = ""TextBox2.Text = ""Label4.Caption = ""End SubPrivate Sub CommandButton3_Click()Unload MeEnd SubЗадание 2. Создать программу для вычисления площадей геометрических фигур: прямоугольника, квадрата, трапеции, треугольника по трем сторонам, круга и кольца. Для ввода исходных данных на рабочем листе установить три поля ввода TextBox. Для управления видимостью второго и третьего полей ввода установить два флажка CheckBox. При установленных флажках второе и третье поля невидимы. На рабочем листе создать кнопочное меню - установить командные кнопки «Площадь прямоугольника», «Площадь квадрата», «Площадь трапеции», «Площадь треугольника», «Площадь круга», «Площадь кольца», «Очистить». Результат вывести с помощью окна сообщений.Рисунок 3. Форма для ввода данных. Задание 2.Код программы:Private Sub UserForm_Click()Dim a, b, c As LongPrivate Sub CheckBox1_Click()If CheckBox1.Value ThenTextBox2.Visible = False
| Выполнил обучающийся | | |||
| группа | | специальность | | |
| | ||||
| Оценка | | ( ) |
| Начало практики: 11.05.23 | Родионова А.А. |
| Окончание практики: 17.05.23 | (ФИО и подпись руководителя практики) |
| Начало практики: 18.05.23 | Сулимов Ф.К. |
| Окончание практики: 24.05.23 | (ФИО и подпись руководителя практики ) |
СОДЕРЖАНИЕ
...ЗАКЛЮЧЕНИЕПРОГРАММИРОВАНИЕ В VBA
ОСНОВНЫЕ ЭЛЕМЕНТЫ VBA
Задание 1. Принадлежит ли точка A(x,y) закрашенной области (рис.1)? Для ввода координат точки и вывода результата создать диалоговое окно.Рисунок 2. Форма для ввода данных. Задание 1.Код программы:Private Sub CommandButton1_Click()Dim x As Double, y As Doublex = TextBox1.Texty = TextBox2.TextIf x >= -2 And x <= 4 And y >= 0 And y <= 2 ThenLabel4.Caption = "да"ElseLabel4.Caption = "нет"End IfEnd SubPrivate Sub CommandButton2_Click()TextBox1.Text = ""TextBox2.Text = ""Label4.Caption = ""End SubPrivate Sub CommandButton3_Click()Unload MeEnd SubЗадание 2. Создать программу для вычисления площадей геометрических фигур: прямоугольника, квадрата, трапеции, треугольника по трем сторонам, круга и кольца. Для ввода исходных данных на рабочем листе установить три поля ввода TextBox. Для управления видимостью второго и третьего полей ввода установить два флажка CheckBox. При установленных флажках второе и третье поля невидимы. На рабочем листе создать кнопочное меню - установить командные кнопки «Площадь прямоугольника», «Площадь квадрата», «Площадь трапеции», «Площадь треугольника», «Площадь круга», «Площадь кольца», «Очистить». Результат вывести с помощью окна сообщений.Рисунок 3. Форма для ввода данных. Задание 2.Код программы:Private Sub UserForm_Click()Dim a, b, c As LongPrivate Sub CheckBox1_Click()If CheckBox1.Value ThenTextBox2.Visible = False