Найти количество русских слов в тексте - VB
Формулировка задачи:
Дана фраза (текст). Найти: Количество русских слов (текст состоит из русских и английских слов)
Решение задачи: «Найти количество русских слов в тексте»
textual
Листинг программы
Sub main() Dim n, a For Each a In Split("Дана фраза (текст). Найти: Количество русских слов (текст состоит из русских и английских слов) Given phrase (text). Search: The number of Russian words (text consists of Russian and English words)") n = n - (a Like "*[А-Яа-яЁё]*") Next MsgBox n & " русских слов в этой фразе." End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д