Найти самое длинное слово в предложении - 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

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


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

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

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