Найти количество русских слов в тексте - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

9   голосов , оценка 4 из 5
Похожие ответы