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

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

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

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

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.000 из 5


СОХРАНИТЬ ССЫЛКУ