Найти самое короткое слово в строке - VB

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

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

нужно найти самое короткое слово в строке. я вот чет попробовал написать, но работать не хочет((( подскажите где ошибка?

Решение задачи: «Найти самое короткое слово в строке»

textual
Листинг программы
Private Sub Command1_Click()
Dim text, min, a, slovo
text = InputBox("text")
a = Split(text, " ")
min = Len(a(0))
slovo = a(0)
For i = 1 To UBound(a)
If Len(a(i)) < min Then min = Len(a(i)): slovo = a(i)
Next i
MsgBox slovo
End Sub

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


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

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

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