МИНИСТЕРСТВО ЦИФРОВОГО РАЗВИТИЯ, СВЯЗИ И МАССОВЫХ КОММУНИКАЦИЙ РОССИЙСКОЙ ФЕДЕРАЦИИ

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

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

(МТУСИ)

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

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

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

«Работа со строками»

Выполнила:

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

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

Проверил:

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

Москва, 2024 г.

Оглавление

Введение 3

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

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

Вывод 7

Введение

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

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

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

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

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

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

2. Перейти во вкладку «Разработчик», выбрать кнопку «Visual Basic».

3. В открывшемся окне необходимо создать новый модуль и добавить программный код, представленный в листинге 1.

Листинг 1 - Программный код для выполнения лабораторной работы

Sub CommandButton1_Click()

Dim s As String

Dim i As Integer

Dim c As String

Dim count As Integer

Dim uniqueChars As String

Dim charCount As Integer

s = Range("C3").Value

s = Replace(s, " ", "")

s = LCase(s)

For i = 1 To Len(s)

c = Mid(s, i, 1)

If InStr(uniqueChars, c) = 0 Then

count = count + 1

uniqueChars = uniqueChars & c

charCount = Len(s) - Len(Replace(s, c, ""))

Range("B" & 10 + count).Value = c

Range("C" & 10 + count).Value = charCount

End If

Next i

End Sub

4. Кнопке «Рассчитать» назначить соответствующий макрос.

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

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

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

Вывод

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