Программа для подсчета слов во введенном тексте - VB
Формулировка задачи:
Программа считает все введенное
Как сделать чтобы подсчитывали слова помогите пожалуйста
А то плохо разбираюсь
Решение задачи: «Программа для подсчета слов во введенном тексте»
textual
Листинг программы
Private Sub Command1_Click()
Dim n, a
For Each a In Split("Мама мыла морду мылом")
n = n - (a Like "*[А-Яа-яЁё]*")
Next
MsgBox n
End
End Sub