Написать программу, которая находит самое короткое слово в предложении - VB
Формулировка задачи:
Задано предложение, состоящее из слов-строк. Написать программу, которая находит самое короткое слово в предложении.
Решение задачи: «Написать программу, которая находит самое короткое слово в предложении»
textual
Листинг программы
Option Explicit Private Sub Form_Load() Dim v, s$, i& s = "Написать программу которая находит самое короткое слово в предложении" For i = 1 To Len(s) For Each v In Split(s) If Len(v) = i Then GoTo m Next Next m: MsgBox "Самое короткое слово: " & v End Sub