Дана фраза. Выяснить, сколько в ней прилагательных в единственном числе, т.е слов, оканчивающихся на <-ый>, <- - VB
Формулировка задачи:
Дана фраза. Выяснить, сколько в ней прилагательных в единственном числе, т.е слов, оканчивающихся на <-ый>, <-ая> и <-ое>?
Заранее спасибо.
Решение задачи: «Дана фраза. Выяснить, сколько в ней прилагательных в единственном числе, т.е слов, оканчивающихся на <-ый>, <-»
textual
Листинг программы
Option Explicit
Private Sub Command1_Click()
Dim stroka As String, Test
Dim MyObj As Object 'Создаем объект
Set MyObj = CreateObject("VBScript.RegExp")
MyObj.Global = True
stroka = "аямпаекды ыйнеам трнаоеяирне Аяитрн ирпаое 1458 импая ипекв мпаый" 'исследуемая строка
MyObj.Pattern = "ый\s|ый$|ая\s|ая$|ое\s|ое\$" 'шаблон
Set Test = MyObj.Execute(stroka)
Print "прилагательных в единственном числе = "; Test.Count;
End Sub