ТЕМА № 1. Строковые функции

Задание: разработать приложение, которое подсчитывает количество букв «А» во введенной строке (для решения использовать функцию пользователя).

Ход работы

1   Создайте новый проект и расположите элементы управления на новой форме, как показано на рис. 34.

2   Сначала разработаем функцию, которая будет подсчитывать количество Символов в Строке. Алгоритм будет очень прозрачным, т.е. необходимо перебирать каждый символ в строке с первого до последнего и проверять, совпадает ли он с заданным символом.

Рис. 34. Конструктор формы

3   Назовем функцию КолСимВСтроке, причем эта функция будет от двух аргументов типа String (строка), а значение, возвращаемое функцией, будет типа Integer. И не забудьте (!) добавить описание функции не в модуль формы, а в стандартный модуль:

Public Function КолСимВСтроке(Строка As String, Символ As String) As Integer

            Dim i As Integer

            Dim Количество As Integer

            For i = 1 To Len(Строка)

                        If Mid$(Строка, i, 1) = Символ Then

                                    Количество = Количество + 1

                        End If

            Next i

            КолСимВСтроке = Количество

End Function

4   Теперь необходимо запрограммировать кнопку Подсчитать. Проделайте это самостоятельно (см. Функции пользователя).

5   Запустите и отладьте приложение. Сохраните его.

Рис. 35

Дополнительное задание

Разработайте новую функцию, которая вычисляет не количество, а процент вхождения символа в строку.

Контрольные задания

1   Добавьте текстовое окно для ввода символа, для которого необходимо вычислить количество вхождений.

2   Подсчитать количество вхождений сочетания букв «МА» в заданную строку.

3   Создать функцию, которая в строке S заменяет символ С1 на С2.

4   Создать функцию, которая из строки S удаляет символ С.

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

6   Проверить, встречается ли в данной Строке1 заданная Строка2. Ответ вывести в виде диалоговых окон.

7   Выполните предыдущее задание, добавив подсчет количества вхождений.

8   Расположите символы в строке в алфавитном порядке (воспользуйтесь тем, что строковые значения можно сравнивать, как числа, например, «А»<«Б» – это истинное высказывание).

9   Разработайте функцию, которая определяет, какой из двух заданных символов встречается чаще в заданной строке.

10   Подсчитайте количество слов в предложении, если известно, что словом считается одна или несколько букв, разделенных по краям пробелами (за исключением первого и последнего слова).

Вопросы для самоконтроля

1   Какие функции VB для обработки строк Вы знаете?

2   Какое значение возвратит функция Len(«МАма») ?

3   Какое значение возвратит функция Mid(«МАма», 2, 2)?

4   С помощью какой функции можно узнать, содержится ли в заданной строке строка «МАма»?

Скачано с www.znanio.ru