Подсчитать количество слов, начинающихся и заканчивающихся на одну и ту же букву. - VB
Формулировка задачи:
Дан файл , содержащий текст на русском языке. Подсчитать количество слов, начинающихся и заканчивающихся на одну и ту же букву. Реализовать на Visual Basic 6.0, помогите пожалуйста......
Решение задачи: «Подсчитать количество слов, начинающихся и заканчивающихся на одну и ту же букву.»
textual
Листинг программы
'... If LCase(Left(Arr(i), 1)) = LCase(Right(Arr(i), 1)) And Len(Arr(i)) > 1 Then Count = Count + 1 '...