Дан текст. Найти самое длинное слово и подсчитать в нем количество согласных - VB

Узнай цену своей работы

Формулировка задачи:

Пожалуйста помогите решить задание,не могут понять как это делать в VB, просмотрела все похожие задачи на форуме,но в итоге ничего не получается Дан текст. Найти самое длинное слово и подсчитать в нем количество согласных.

Решение задачи: «Дан текст. Найти самое длинное слово и подсчитать в нем количество согласных»

textual
Листинг программы
Public Sub aa()
    S = "Оказывается, при проведении эзофагогастродуэденоскопии пациента... надувают!"
    Set r = CreateObject("vbscript.RegExp"): r.IgnoreCase = True: r.Global = True
    r.pattern = "[а-яё]+": Set ms = r.Execute(S)
    S = Empty
    For Each m In ms
        If Len(m) > Len(S) Then S = m.Value
    Next
    r.pattern = "[^аеёиоуыэюя]": Set ms = r.Execute(S)
    MsgBox ("в самом длинном слове - " & S & vbCrLf & ms.Count & " согласных")
End Sub

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


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

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

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