поправьте код программы на Бэйсике, Визуал - есть ответ

Без имени, 166 просмотров

поправьте код программы на Бэйсике, Визуал Нужно что-бы Ученик вводит с клавиатуры букву русского алфавита. Компьютер должен сказать, какой звук обозначает это буква - гласный, получяется только с одной буквой(с помощью Select Case) а мне нужно хотя бы три. Вот код Dim a As String Private Sub Command1_Click() a = InputBox("Введите букву русского алфавита") Select Case a Case "А" '(ЗДЕСЬ Я ХОЧУ ЧТО-БЫ БЫЛА НЕ ТОЛЬКО БУКВА А, А ЕЩЕ ХО-ТЯ БЫ ДВЕ, Or не помогает) Text1.Text = "Гласная буква" End Select End Sub Помогите пожалуста великие программисты. Кому не лень прошу напишите мне код пример хотябы

Ответы:

Хафизов Тимур

If Instr("аеиоуэюя", a) <> 0 then
Text1.Text = "Гласная буква"
else
Text1.Text = "Согласная буква"
end if

Indy43333

ну или сделать многомерный массив в котором храниться в 1 уровне массив из двух эллементов в 1 из которых буква а во втором его звук

14 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.