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