Министерство цифрового развития, связи и массовых коммуникаций Российской Федерации

Ордена Трудового Красного Знамени федеральное государственное бюджетное образовательное учреждение высшего образования

Московский технический университет связи и информатики

(МТУСИ)

Кафедра «Системное программирование»

Лабораторная работа №7

по дисциплине «Информационные технологии и программирование»

«Пользовательские формы»

Выполнила:

студентка группы БФИ2203

Мячина Лада Андреевна

Проверил:

Клешнин Никита Геннадиевич

Москва, 2024 г.

Оглавление

Введение 4

Выполнение работы 5

Результат работы программы 7

Вывод 8

Введение

Умение эффективно работать с данными является ключевым навыком, особенно в контексте использования программных средств, таких как MS Excel. Приобретенные в ходе выполнения лабораторной работы навыки не только облегчат повседневные задачи, но и откроют двери к более сложным аналитическим и организационным возможностям. Лабораторная работа поможет улучшить свои навыки в работе с MS Excel и научиться использовать пользовательские формы.

Цель работы: получение навыков работы с пользовательскими формами.

Задание: разработать программу подсчета количества символов в фамилии, имени и отчестве студента. За исходные данные взять Ваше ФИО. Ввод данных в программу организовать в виде пользовательской формы. Результаты работы (количество символов в фамилии, имени и отчестве) вывести на форму и продублировать вывод на лист MS Excel. Подготовить отчет по лабораторной работе.

Выполнение работы

1. Создать новый лист в MS Excel и разработать интерфейс программы, результат представлен на рисунке 1.

Рисунок 1 – Интерфейс программы

2. Создать пользовательскую формы использовать конструктор, пользовательская форма представлена на рисунке 2.

Рисунок 2 – Пользовательская форма

3. Код для кнопки формы, представлен в листинге 1.

Листинг 1 - Программный код для формы

Private Sub CommandButton1_Click()

last_name = TextBox1.Text

first_name = TextBox2.Text

surname = TextBox3.Text

Range("D6").Value = last_name

Range("D7").Value = first_name

Range("D8").Value = surname

Range("E6").Value = Len(last_name)

Range("E7").Value = Len(first_name)

Range("E8").Value = Len(surname)

End Sub

Результат работы программы

Результат работы программы представлен на рисунке 3.

Рисунок 3 - Результат работы программы

Вывод

В ходе лабораторной работы были получены навыки работы с пользовательской формой.