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