Написать логическую функцию, принимающую значения True

[kiska190593]

Написать логическую функцию, принимающую значения True, если в строковой переменной, являющейся единственным аргументом этой функции, отсутствуют гласные русские буквы.:confused :

[DiemonStar]

Function ЕстьГласные(S As String) As Boolean
  ЕстьГласные = UCase(S) Like "*[А,Е,О,И,Ы,Ё,Э,У,Ю,Я]*"
End Function

в три строчки...

[EducatedFool]

Написать логическую функцию

Это что, приказ?


Ввиду резко возросшей активности студентов-бездельников
темы, не содержащие своих наработок, будут закрываться.

В этом разделе форума помогают разобраться в Вашем решении, а не штампуют лабы одну за другой.

Нет желания делать работу самостоятельно - обращайтесь в раздел Фриланс (там Вам всегда помогут, но не бесплатно)
Нет желания платить - выкладывайте свои наработки, и говорите, что конкретно у Вас не получается. В этом случае вы наверняка получите помочь, и ждать её придётся совсем недолго.

Впрочем, есть ещё раздел Помощь студентам - если хочется халявы, а денег жалко, - можете обратиться туда (есть небольшой шанс, что там кто-нибудь решит ваши задачки)

Ну а если наработок нет, а вы все же надеетесь получить готовое решение от профессионалов, - создавайте новую тему, и сразу указывайте цену, которую Вы готовы заплатить за решение.