Найти длину самого длинного слова в строке - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д