Мы вводим с клавиатуры букву русского алфавита. Компьютер должен показать, какой звук обозначает буква - гласный, согласный звонкий, согласный глухой, твердый или мягкий знак или что-то еще. Вот программа:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Буква As String = InputBox("Введите строчную букву русского алфавита")
Select Case Буква
Case "а", "и", "о", "у", "е", "ё", "ы", "э", "ю", "я"
MsgBox("гласная")
Case "б", "в", "г", "д", "з", "ж", "й", "л", "м", "н", "р"
MsgBox("согласный звонкий")
Case "п", "с", "ф", "к", "т", "ч", "щ", "ц", "ш", "х"
MsgBox("согласный глухой")
Case "ъ"
MsgBox("твердый знак")
Case "ь"
MsgBox("мягкий знак")
Case Else
MsgBox("Это не строчная буква русского алфавита")
End Select
End Sub
