VB 14. Строковые функции

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

Выполнение:

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

Рис. 14.1. Форма «Строковые функции»

  1. Сначала разработаем функцию, которая будет подсчитывать количество символов в строке. Алгоритм будет очень прозрачным: необходимо перебирать каждый символ в строке с первого до последнего и проверять, совпадает ли он с заданным символом.
  2. Назовем функцию KolSimvol, эта функция будет от двух аргументов типа string, а значение, возвращаемое функцией, будет типа integer. И не забудьте добавить описание функции не в модуль формы, а в стандартный модуль:
1
2
3
4
5
6
7
8
9
10
Public Function KolSimvol(ByVal stroka As String, ByVal simvol As String) As Integer
Dim i As Integer
Dim количество As Integer
For i = 1 To Len(stroka)
  If Mid(stroka, i, 1) = simvol Then
   количество = количество + 1
  End If
Next
KolSimvol = количество 'return количество
End Function

Функция Mid возвращает строку, содержащую указанное число знаков строки. Mid( str, Start, Length), где str – строка, start – начальная позиция возвращаемых знаков, length – число возвращаемых знаков.

  1. Теперь необходимо запрограммировать кнопку Подсчитать:
1
txtKolvo.Text = KolSimvol(txtstr.Text, "а")
  1. Запустите и отладьте приложение. Сохраните его.


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

  1. Добавьте текстовое окно для ввода символа, для которого необходимо вычислять количество вхождений.
  2. Подсчитать количество вхождений сочетания букв «ма» в заданную строку.



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

  1. Какие функции VB для обработки строк Вы знаете?
  2. Какое значение возвратит функция Len(“МАма”)?
  3. Какое значение возвратит функция Mid(“МАма”,2,2)?

* При использовании материалов обязательна ссылка на источник: Майер С.Ф., «MS Visual Basic 2008» — Учебно-методическое пособие : Южный федеральный университет. – Ростов-на-Дону, 2017. – 92 с.
Поделитесь уроком с коллегами и друзьями:
One Comment

    Сергей

    Все очень, очень замечательно. Получить бы еще уроки

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

*
*


Вставить формулу как
Блок
Строка
Дополнительные настройки
Цвет формулы
Цвет текста
#333333
Используйте LaTeX для набора формулы
Предпросмотр
\({}\)
Формула не набрана
Вставить