Определить длину самого короткого слова - VB (60243)
Формулировка задачи:
Помогите пожалуйста с програмой. Вот задание: Для заданной строки символов, который содержит украинские слова, разделенные пробелами (одним или несколькими) определить длину самого короткого слова.
Решение задачи: «Определить длину самого короткого слова»
textual
Листинг программы
Sub main()
Dim S As String, L As Long
S = InputBox("Введіть послідовність символів, яка містить українські слова, розділені пробілами", , "Введіть послідовність символів , яка містить українські слова , розділені пробілами")
Do
L = L + 1
If " " & S & " " Like "* " & String$(L, "?") & " *" Then
MsgBox "Найкоротша слово містить " & L & " символу"
Exit Do
End If
Loop
End Sub