Программа для подсчета слов во введенном тексте - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д