Написать программу для подсчета суммы мест, на которых в словах текста стоит заданная буква - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д