Дан текст. Найти самое длинное слово и подсчитать в нем количество согласных - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д