Вычисление значений функции с учетом её области определения - VB

1. Составить программу вычисления значений функции с учетом её области определения. 2. Математическая модель. В область определения данной функции входят все значения x отвечающие условиям: · Логарифмическое выражение должно быть больше нуля, т.е. sin x > 0 · знаменатель не должен равняться нулю –x+ln(sin x) ¹ 0 3. Алгоритм. После математической модели, в данном случае, уместно составить блок-схему, она наглядно демонстрирует модель решения задачи: Вложение 116 4. Спроектируем эскиз формы: 5. Программа имеет вид:Алгоритм можете посмотреть во "Вложение 118" 6. Данную блок-схему можно оптимизировать если объединить условия в один блок и соединить их логическими функцией И (And). Оптимизированная программа будет такой:7. Проверяем работоспособность программы по каждой ветви алгоритма, для различных значений x. Результаты: 1.Если х=2, то y=1.9663033; 2. Если х =3, то y = 0; 3. Если x = 6, то Значение 6 не входит в ОО функции. Но вот проблема у меня это не работает, хотя всё делаю по инструкци. Как вы думаете где ошибка и как этот код должен быть написан. А еще не можно вывести сообщение "Значение 6 не входит в ОО функции" когда вводят 6.