Определить гласную букву, которая чаще всего встречается в тексте - VB

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

Нужна помощь, в Vb я разбираюсь неплохо, но вот проги где используется текст вообще полный 0. Само задание: В тексте произвольной длины с точкой в конце определить гласную букву, которая чаще всего встречается . напечатать результат и текст.

Решение задачи: «Определить гласную букву, которая чаще всего встречается в тексте»

textual
                            Листинг программы 
                        

                            Option Explicit
Option Compare Text
Const a = "аяоёуюеэыи"
Sub main()
Dim Text
Text = "афпоьутёчэрьыааыоеяэпяаичобьачп."
Dim i As Long, c As Long, max As Long, b As String * 1
For i = 1 To Len(a)
  c = Len(Text) - Len(Replace(Text, Mid(a, i, 1), ""))
  If c > max Then
    b = Mid(a, i, 1)
    max = c
  End If
Next i
MsgBox "Буква """ & UCase$(b) & """ в строке """ & Text & """ " & max & " раз"
End Sub
                        

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

5 голосов , оценка 4 из 5

Похожие ответы