Лабораторная работа № 11 Решение квадратного уравнения

Цель работы: изучение свойств объекта Range

Задание на выполнение работы:

1. Воспроизвести приведенную ниже пользовательскую форму и листинг программы к ней.

2. Пометив как комментарий строку Range("A1:A8").Rows.AutoFit и присвоив свойствам WrapText объектов Range значение True, посмотреть, что изменится при выполнении программы

3. Разработать приложение с диалоговым окном «Решение уравнения» для нахождения корней уравнения .

Порядок выполнения работы:

Ниже приведена пользовательская форма и программа для решения квадратного уравнения. В форму вводятся только коэффициенты уравнения 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. Выводы

Контрольные вопросы

1. Опишите свойства AutoFit и WrapText объекта Range

2. В чем состоит метод GoalSeek?

Лабораторная Работа № 12 Изучение заполнения списка

Цель Работы: Изучение команд цикла Do While и операций заполнения списка.

Задание на выполнение работы: Разработать приложение, с помощью которого можно:

1. Либо вычислить значение функции при заданном значении аргумента и вывести найденное значение в поле диалогового окна. (Рисунок 12.1)

2. Либо протабулировать значения этой функции на заданном интервале с заданным шагом, вывести результат табуляции в список. (Рисунок 12. 2)

3. Протабулировать значения этой функции на заданном интервале с заданным шагом, вывести результат табуляции в 2 списка (Рисунок 12.3)

Порядок выполнения работы

Операция, проводимая над функцией должна устанавливаться выбором переключателя из группы Операция ( рисунок 12.1).

Рисунок 12.1 Вид пользовательской формы для п.1 задания

Нижеследующий фрагмент программы, иллюстрирующей способ записи нескольких строк в список показывает, что А является массивом строк.

Размерности переменных объявляются следующим образом:

Dim y1,xx1 As String

Dim A(2) As String

Для объединения нескольких строк в одну пользуемся функцией Join, где A массив строк, а “ ”- разделяющий знак (в данном случае пробелы). В - строковая переменная.

Рисунок 12.2 Вид пользовательской формы для п.2 задания

Рисунок 12.3 Пользовательская форма для п.3 задания

Варианты задания:

№ п/п	Функция	Начальное значение х	Конечное значение х	Шаг
1		1	4	0,2
2		0,1	1	0,1
3		1	3	0,3
4		2	6	0,4
5		3	7	0,5
6		1	5	1
7		0	6	2
8		1	10	3
9		2	16	4
10		2	20	5
11		1,5	3	0,2
12		2	3	0,1
13		0,1	1,5	0,3
14		0,2	2	0,4

Отчет должен содержать:

7. Задание на выполнение работы

8. Программы VBA, указанные в задании

9. Выводы

Контрольные вопросы

3. Назовите команды, используемые для заполнения списка

4. Как организуется цикл Do While

Лабораторная работа № 14

Управление размером и перемещением

элементов

Цель работы: Обучиться управлению размером и перемещением элементов управления.

Задание на выполнение работы: составить программу для подсчета суммы квадратов вводимых элементов с регулируемым количеством полей под элементы.

Порядок выполнения работы: пример диалогового окна программы представлен на рисунке 1.

1. Задание переменных и подсчет результата

- метод ввода переменных (счетчик меняем от 1 до 88)

-подсчет результата ( i-счетчик,s – переменная-ответ )

Рисунок 1. Пример диалогового окна программы

2) Регулирование числа строк и столбцов

в данном фрагменте программы мы рассматриваем процедуру регулирования количества строк, где n – переменная, характеризующая количество строк, m - количество столбцов,UserForm1.Width и UserForm1.Height – характеристики пользовательской формы, отвечающие за ширину и высоту соответственно.

Отчет должен содержать:

1. Задание на выполнение работы

2. Программы VBA, указанные в задании

3. Выводы

Контрольные вопросы

Как организуется управление размером элементов пользовательской формы

Как организуется перемещение объектов пользовательской формы.

Учебное издание

Информатика

Лабораторный практикум

Чернецова Елена Анатольевна

Редактор И.Г. Максимова

Подписано в печать Формат 60/901/2 Бумага книжно – журнальная

Печ. л. Тир. 55

РГГМУ, 195196, СПб, Малоохтинский пр

36