В заданной строке, состоящей из "слов", разделенных одним или более пробелами, определить длину самого короткого "слова" - VB

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

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

В заданной строке, состоящей из "слов", разделенных одним или более пробелами, определить длину самого короткого "слова". помогите.

Решение задачи: «В заданной строке, состоящей из "слов", разделенных одним или более пробелами, определить длину самого короткого "слова"»

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

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

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