Вывести самое длинное и самое короткое слово из введенного предложения - VB
Формулировка задачи:
нужно написать программу!!!
пользователь вводит предложение, нужно вывести самое длинное и самое короткое слово из него.
Буду очень благодарен...
Решение задачи: «Вывести самое длинное и самое короткое слово из введенного предложения»
textual
Листинг программы
a = "121 2 121454 124" b = Split(a) mn = b(LBound(b)): mx = b(LBound(b)) For i = LBound(b) + 1 To UBound(b) If Len(mx) < Len(b(i)) Then mx = b(i) If Len(mn) > Len(b(i)) Then mn = b(i) Next MsgBox mn & vbLf & mx