Дан текст и некоторая буква. Найти слово, содержащее эту букву наиболее количество раз - VB

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

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

Помогите, пожалуйста Дан текст и некоторая буква. Найти слово, содержащее эту букву наиболее количество раз.
help me!!!!!
please!!!!!!

Решение задачи: «Дан текст и некоторая буква. Найти слово, содержащее эту букву наиболее количество раз»

textual
Листинг программы
Sub qqq()
текст = "От сильных защищать бессильных"
буква = "с"
слово = " "
a = Split(текст)
For i = 0 To UBound(a)
  If UBound(Split(a(i), буква)) > UBound(Split(слово, буква)) Then слово = a(i)
Next i
MsgBox слово
End Sub

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


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

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

11   голосов , оценка 4.091 из 5
Похожие ответы