Посчитайте количество букв, подходящих гласным звукам ("а", "я", ), в

Надобно было поначалу прочитать текст, а позже говорить, всюду различные тексты, у меня иной...

Там и программка была, загружайте туда хоть какой текст

Гласных в тексте 319
могу сказать как подсчитал

Sub Zadanie16087714()
    Const text = "Скоро после малюсенькой княгини вошел мощный, толстый молодой человек с стриженою головой, в очках, ясных штанах по тогдашней моде, с высочайшим жабо и в буром фраке. Этот толстый юный человек был преступный отпрыск знаменитого екатерининского вельможи, графа Безухова, умиравшего сейчас в Москве. Он нигде не служил еще, только что приехал из-за границы, где он воспитывался, и был первый раз в обществе. Анна Павловна приветствовала его поклоном, относящимся к людям самой низшей иерархии в ее салоне. Но, невзирая на это низшее по собственному сорту приветствие, при виде вошедшего Пьера в личике Анны Павловны изобразилось беспокойство и ужас, сходственный тому, который выражается при виде чего-нибудь очень громадного и несвойственного месту. Желая действительно Пьер был несколько больше иных мужчин в комнате, но этот ужас мог относиться только к тому разумному и вкупе пугливому, бдительному и естественному взору, отличавшему его от всех в этой гостиной. "
    k = 0

    For i = 1 To Len(text)
        c = Mid(text, i, 1)
        If InStr(1, "аэоуыяеёюи", c, 1) gt; 0 Then
            k = k + 1
        End If
    Next
    MsgBox (k)
End Sub

Zadanie16087714()

Код написан на VBScript