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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы