Найти самое длинное слово в предложении - VB
Формулировка задачи:
Найти самое длинное слово в предложении.
Например: Горные вершины спят во тьме ночной.
Вершины.
Как сделать так, чтобы вводить текст с inputbox?
Решение задачи: «Найти самое длинное слово в предложении»
textual
Листинг программы
option explicit sub main() dim sentence$, slovo, maxslovo$ sentence = inputbox("Введите предложение",,"Горные вершины спят во тьме ночной.") for each slovo in split(ClearPunctuation(lcase(sentence))) if len(maxslovo) < len (slovo) then maxslovo = slovo next msgbox "Самое длинное слово в предложении: " & maxslovo end sub Function ClearPunctuation(byval St as String) dim i&, L$ For i = 1 To Len(St) L = Mid$(St, i, 1) If L Like "[!A-Za-zА-яҐЁЄЇіґёєї'‘’-]" Then Mid$(St, i, 1) = " " Next St = Replace$(St, " - ", " ") St = Trim(St) Do i = Len(St) St = Replace$(St, " ", " ") Loop Until i = Len(St) ClearPunctuation = St End function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д