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

@Toffinn · Регистрация: 28.02.2011

Author24 — интернет-сервис помощи студентам

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

@Vlanib · 28.02.2011, 18:30

Visual Basic

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

@Toffinn · 28.02.2011, 19:53 **[ТС]**

спасибо,
еще глупый вопрос, я прост плохо разбираюсь,
sStr - строку, я должен ввести с клавиатуры(прописать vvod) а sWord, и будет минимальное значение, вывести?

@olusik27 · 28.02.2011, 22:30

Тебе уже ничего не надо прописывать: процедура все делает сама. Ввод строки производится в окне, которое вызывается функцией InputBox. А вывод результатов (sWord - найденного слова и iMin - числа символов, из которых он состоит) выполняется также в диалоговом окне с помощью стандартной функции MsgBox. Просто запусти процедуру, и все сам увидишь

@Toffinn 0 / 0 / 0 Регистрация: 28.02.2011 Сообщений: 18
		1
	В заданной строке, состоящей из "слов", разделенных одним или более пробелами, определить длину самого короткого "слова" 28.02.2011, 16:08. Показов 1765. Ответов 3 Метки нет (Все метки) В заданной строке, состоящей из "слов", разделенных одним или более пробелами, определить длину самого короткого "слова". помогите. 0

@Toffinn 0 / 0 / 0 Регистрация: 28.02.2011 Сообщений: 18
	28.02.2011, 19:53 [ТС]	3
	спасибо, еще глупый вопрос, я прост плохо разбираюсь, sStr - строку, я должен ввести с клавиатуры(прописать vvod) а sWord, и будет минимальное значение, вывести? 0

@olusik27 90 / 20 / 2 Регистрация: 28.02.2011 Сообщений: 54
	28.02.2011, 22:30	4
	Тебе уже ничего не надо прописывать: процедура все делает сама. Ввод строки производится в окне, которое вызывается функцией InputBox. А вывод результатов (sWord - найденного слова и iMin - числа символов, из которых он состоит) выполняется также в диалоговом окне с помощью стандартной функции MsgBox. Просто запусти процедуру, и все сам увидишь 1