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

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


textual

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

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



Похожие ответы
  1. Дано натуральное трехзначное число. Определить цифры этого числа (K, L, M) и выяснить, можно ли построить произвольный треугольник K, L, M. Пожалуйста!!

  1. Задан целочисленный массив из 10 элементов 1) определить, есть ли в массиве последовательность из n повторяющихся элементов, стоящих подряд. n пользователь вводит. подводный камень: 3334445551 - n должно быть <=3,однако при неправильном коде(как у меня) выводит,что,допустим, 5 элементов тоже есть

  1. Отметки точек трассы представлены как элементы массива. В этом массиве находят разность мах и мин элементов для определения размаха эпюры трассы. Величина размаха учитывается при выборе размеров (формата) чертежа. В данной задаче студентам следует решить только первую часть проблемы: определить максимальный элемент массива

  1. как определить язык windows на VB6.0?

  1. Дано целое число М. Определить делиться ли М нацело на 9. Сумма цифр М должна делиться нацело на 9

  1. Народ, знаю, что вас бесят подобные темы, но прошу помогите. Начали преподавать VB6, но раньше я его не встречал. Задача такова: Дан двумерный массив размерностью N x M элементов. Определить количество элементов, значения которых больше заданного числа F. Если не сложно, пожалуйста напишите полный код с пояснениями. Массив рандомный. Заранее спасибо.

  1. Здраствуйте, я учусь на юридическом факультете и т.к. мой мозг полный гуманитарий, я не могу решить на первый взгляд простенькую задачу, буду благодарен любой помощи... Сама задача: Определить стоимость услуг мобильной связи, если известна стоимость одной секунды разговора, и продолжительность всех разговоров, цена одного смс и количество отправленных смс. P.S. Писал с телефона если где-то есть ошибки, извиняйте, буду рад любой помощи, числа я подставлю сам, важен сам алгоритм выполнения)) Спасибо заранее))

  1. Определить, лежит ли данная точка на одной из сторон треугольника, заданного координатами его вершин. Далёк от информатики, нужно написать программу в VBA

  1. Двумерный массив n*m заполнен рандомно. Определить, есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элементов. Помогите наладить программу, не могу понять почему определяет местами не правильно.

  1. Даны три стороны треугольника a, b, c. Определить, является ли такой треугольник равнобедренным, равносторонним или разносторонним. НУЖЕН ПРОГРАММНЫЙ КОД В VISUAL BASIC, БУДУ ОЧЕНЬ ПРИЗНАТЕЛЕН.