Решение квадратного уравнения
Лабораторная работа № 11
Цель работы: изучение свойств объекта Range
Задание на выполнение работы:
- Воспроизвести приведенную ниже пользовательскую форму и листинг программы к ней.
- Пометив как комментарий строку Range("A1:A8").Rows.AutoFit и присвоив свойствам WrapText объектов Range значение True, посмотреть, что изменится при выполнении программы
- Разработать приложение с диалоговым окном «Решение уравнения» для нахождения корней уравнения
.
Порядок выполнения работы:
Ниже приведена пользовательская форма и программа для решения квадратного уравнения. В форму вводятся только коэффициенты уравнения a,b,c, а в ячейку для значения y вводится 0. Необходимо протестировать программу для трех случаев: отсутствия корней (например, a=1;b=-2;c=8;y=0), наличия одного корня (например, корень х=1 получаем при a=1;b=-2;c=1;y=0), наличия двух корней (например корни х1=2;x2=1 получаем при a=1;b=-3;c=2;y=0).
Обратите внимание на то, что в случае наличия одного корня он ищется с помощью приближенного численного метода поиска решения (GoalSeek), а в случае наличия двух действительных коней применяются типовые формулы их поиска.
Рисунок 11.1 Пользовательская форма для решения квадратного уравнения
В случае наличия только одного корня, текстовое окно для вывода второго корня становится невидимым. При нажатии на кнопку «Закрыть», пользовательская форма удаляется.
При нахождении корней уравнения задаются значения параметров a,b и решение уравнения – число y, а находятся значения x. Нужно предусмотреть вывод сообщения об ошибке, если 
, т.к. это значение не входит в область определения функции.
Отчет должен содержать:
4. Задание на выполнение работы
5. Программы VBA, указанные в задании
6. Выводы
Контрольные вопросы
- Опишите свойства AutoFit и WrapText объекта Range
- В чем состоит метод GoalSeek?