Написать программу для подсчета суммы мест, на которых в словах текста стоит заданная буква - VB
Формулировка задачи:
Написать программу для подсчета суммы мест, на которых в словах
текста стоит заданная буква.
Помогите пожалуйста.
Решение задачи: «Написать программу для подсчета суммы мест, на которых в словах текста стоит заданная буква»
textual
Листинг программы
Option Compare Text
Function SumMest(s$, b$) As Long
Dim i&, j& 'j - счетчик букв в слове
For i = 1 To Len(s)
Select Case Mid(s, i, 1)
Case " ": j = 0
Case b: j = j + 1: SumMest = SumMest + j
Case Else: j = j + 1
End Select
Next
End Function
Sub test()
MsgBox SumMest("програмМу для подсчета суммы Мест", "м")
'7+8+3+4+1=23
End Sub