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