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

Выполнение:

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

2. Сначала разработаем функцию, которая будет подсчитывать количество символов в строке. Алгоритм будет очень прозрачным: необходимо перебирать каждый символ в строке с первого до последнего и проверять, совпадает ли он с заданным символом.
3. Назовем функцию 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 – число возвращаемых знаков.

4. Теперь необходимо запрограммировать кнопку Подсчитать:

1

txtKolvo.Text = KolSimvol(txtstr.Text, "а")

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