В заданной строке определить длину самого короткого слова - VB

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

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

В заданной строке, состоящей из "слов", разделенных одним или более пробелами, определить длину самого короткого "слова". есть такой вариант, но нужен другой
вот такой еще сделал
Но тут еще надо куда-то Trim всунуть и если слов в строке больше чем два то получается надо сравнивать все S()?! Вообщем помогите второй дороботать пожлуйсто

Решение задачи: «В заданной строке определить длину самого короткого слова»

textual
Листинг программы
st = Trim(TextBox1.Text)
If Len(st) > 0 Then
Do While InStr(1, st, "  ") > 0
st = Replace(st, "  ", " ")
Loop
sm = Split(st, " ")
d = Len(sm(LBound(sm))): st1 = sm(LBound(sm))
For i = LBound(sm) + 1 To UBound(sm)
If d > Len(sm(i)) Then
d = Len(sm(i))
st1 = CStr(sm(i))
End If
Next i
MsgBox st1 & "  " & d
End If

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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