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