Написать программу для подсчета суммы мест, на которых в словах текста стоит заданная буква - VB

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Написать программу для подсчета суммы мест, на которых в словах текста стоит заданная буква»

textual
Листинг программы
  1. Option Compare Text
  2.  
  3.  
  4. Function SumMest(s$, b$) As Long
  5. Dim i&, j& 'j - счетчик букв в слове
  6. For i = 1 To Len(s)
  7.     Select Case Mid(s, i, 1)
  8.     Case " ": j = 0
  9.     Case b: j = j + 1: SumMest = SumMest + j
  10.     Case Else: j = j + 1
  11.     End Select
  12. Next
  13. End Function
  14.  
  15. Sub test()
  16. MsgBox SumMest("програмМу для подсчета суммы Мест", "м")
  17.     '7+8+3+4+1=23
  18. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.286 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы