Программа для подсчета слов во введенном тексте - VB

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

Private sub command1_click()
Dim x as string 
X=text1.text
Print Len (x)
End sub

Программа считает все введенное Как сделать чтобы подсчитывали слова помогите пожалуйста А то плохо разбираюсь

Решение задачи: «Программа для подсчета слов во введенном тексте»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim n, a
For Each a In Split("Мама мыла морду мылом")
 n = n - (a Like "*[А-Яа-яЁё]*")
Next
MsgBox n
End
End Sub
                        

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

10 голосов , оценка 4.2 из 5

Похожие ответы