Dim S As Integer ' количество слов в строке

Dim i As Integer ' вспомогат.переменные для организации цикла

Str1 = TextStr1.Text

S = 0

' поиск пробелов в строке:

' каждый пробел после некоторого символа добавляет слово

' (начальные пробелы и несколько пробелов подряд игнорируются)

For i = 2 To Len(Str1)

If Mid(Str1, i, 1) = " " And Mid(Str1, i - 1, 1) <> " " Then

S = S + 1

End If

Next i

If Len(Trim(Str1)) > 0 Then S = S + 1

' вывод результатов

TextS.Text = S

End Sub

Private Sub ButtonCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCancel.Click

End

End Sub

End Class

На рис.2 представлен вариант реализации формы приложения

Рисунок 3 – Работа со строковыми данными

Список использованной литературы

1. VisualBasic -Крепкий орешек!: Вводный курс в VisualBasic. – Режим доступа: http://vb.hut.ru

2. Иванюк, А. VisualBasic: Магия простоты

3. Культин, Н.Б VisualBasic. Освой на примерах/Н.Б. Культин. – СПб, 2004. -288с., ил