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