Найти длину самого длинного слова в строке - VB

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

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

Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Найти длину самого длинного слова..Ещё надо решать в Microsoft Visual Basic-e) ПОМОГИТЕ!))

Решение задачи: «Найти длину самого длинного слова в строке»

textual
Листинг программы
Sub Test2()
Dim sStr As String, sWord As String, iMax As Integer, iLen As Integer, oObj
sStr = InputBox("Ввод строки:")
 
For Each oObj In Split(sStr)
    iLen = Len(Trim(oObj))
    If iLen <> 0 Then
        If iLen > iMax Then iMax = iLen: sWord = oObj
    End If
Next
MsgBox "Самое длинное слово '" & sWord & "' состоит из " & iMax & " букв."
End Sub

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


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

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

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