Дана строка, состоящей из слов, слова отделены друг от друга одним пробелом. Определить длину каждого слова - VB

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

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

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

Решение задачи: «Дана строка, состоящей из слов, слова отделены друг от друга одним пробелом. Определить длину каждого слова»

textual
Листинг программы
Private Sub Command1_Click()
a$ = "ssss ddddddddd ffffffff sd"
l Trim(a) & " ", 1
End Sub
 
Sub l(s$, k%)
If k < Len(s) Then
  d = InStr(k, s, " ")
      Print Mid(s, k, d - k); vbTab; d - k
   l s, d + 1
End If
End Sub

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

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