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