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