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

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

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


textual

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

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.100 из 5

Источник
Похожие ответы