Определение количества гласных и согласных в написанной фразе - VB
Формулировка задачи:
Текст задачи: "Создать программу - Определение количества гласных и согласных в написанной фразе".
Там есть один пункт, а именно: показывать гласные и согласные в процессе ввода.
Как это можно реализовать?
Я пока придумал только при вводе фразы окрашивать каждую букву в соответствующий цвет, например, гласные - красный, согласные - синий. Но не знаю, как это реализовать. Возможно, может кто-нибудь подсказать?
Или подсказать другое решение поставленного вопроса?
Заранее спасибо
Решение задачи: «Определение количества гласных и согласных в написанной фразе»
textual
Листинг программы
- Option Explicit
- Private Sub Text1_Change()
- Const G = "аеёиыоуэюя"
- Const S = "бвгджзйклмнпрстфхцчшщ"
- Dim I As Long
- Label1 = "": Label2 = ""
- For I = 1 To Len(Text1)
- If InStr(1, G, Mid$(Text1, I, 1), vbTextCompare) Then
- Label1 = Label1 & Mid$(Text1, I, 1)
- ElseIf InStr(1, S, Mid$(Text1, I, 1), vbTextCompare) Then
- Label2 = Label2 & Mid$(Text1, I, 1)
- End If
- Next I
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
