Определить долю гласных букв в заданном тексте - VB

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

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

Определить долю гласных букв в заданном тексте:Вот и наступило долгожданное лето.

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

textual
Листинг программы
Const GLAS$ = "аеёиоуыэюя"
Const SOGL$ = "бвгджзйклмнпрстфчцчшщ"
 
Dim stroka As String
Private Sub Command1_Click()
Dim g&, s&, i&
stroka = "Вот и наступило долгожданное лето."
For i = 1 To Len(stroka)
    If InStr(1, SOGL, Mid$(stroka, i, 1), vbTextCompare) Then
        s = s + 1
    ElseIf InStr(1, GLAS, Mid$(stroka, i, 1), vbTextCompare) Then
        g = g + 1
    End If
Next
 
Text1.Text = g & "   " & "или" & "    " & Format(g * 100 / (g + s), 0#) & " %" & "   Гласных букв"
Text2.Text = s & "   " & "или" & "    " & Format(s * 100 / (g + s), 0#) & " %" & "   Согласных букв"
 
End Sub

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


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

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

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