Произвольное слово.Является ли вторая буква в этом слове гласной или нет.Примечание: гласные а,е,и,о,у,ы,э,ю,я — QBasic(Бейсик) — Справочник разработчика. Приемная комиссия

s$ = "буква"
IF INSTR("аеиоуыэюяё", MID$(s$, 2, 1)) > 0 THEN PRINT "вторая буква гласная"

Тестирование выполнено в программе QB64 ( Скачать )

Произвольное слово.Является ли вторая буква в этом слове гласной или нет.Примечание: гласные а,е,и,о,у,ы,э,ю,я — QBasic(Бейсик)