Подведем итоги. Private Sub CommandButton2_Click()

End Sub

End Sub

Private Sub CommandButton2_Click()

Sheets("Поверхность").Select 'Переход на лист "Поверхность"

10. Выйдите из редактора Visual Basic и проверьте работоспособность написанных процедур (не забудьте выполнить выход из режима конструктора, нажав на соответствующую кнопку на панели инструментов «Элементы управления»).

11. Сохраните изменения в файле.

12. На листах «Заполнение» и «Поверхность» добавьте кнопки «На оглавление», снабдив их соответствующей процедурой.

В работе были использованы новые

объекты:

Sheets – листы

Поверхность – тип диаграммы

Columns – столбцы

методы:

Select (выделение указанной ячейки)

Clear (очистка указанной области)

Set (принять, взять, получить указанное выражение)

функции и выражения:

Val (перевод строковых переменных и данных в численное выражение)

InputBox("") (диалоговое окно)

MsgBox (диалоговое окно сообщения)

Do While …Loop (циклический оператор «Выполнять, пока…»)

свойства:

BackColor (цвет фона, цвет кнопки)

Caption (заголовок, название)

Font (настройки шрифта)

Задания для самостоятельного выполнения

Создайте книгу с подобными примерами лабораторных работ по номеру своего варианта (Таблица 19.3, 19.4).

Таблица 19.3

Варианты заданий для автоматизированного заполнения ячеек таблицы

1.	Y = A*X^2 + B*X+ sin(X)	11.	Y = cos^2(B*X) + A*cos(X) + X
2.	Y = sin^2(A*X) + cos^2(B*X) + A^X	12.	Y = B*X + e^(B*X) + A^X
3.	Y = A^X + B*sin(X) – cos^2(B*X)	13.	Y = sin^2(A*X) – B*cos(X) – e^(B*X)
4.	Y = B*X^2 + sin^2(A*X) – sin(X)	14.	Y = A^X + B*cos^2(X) – A*X
5.	Y = cos^2(A*X) + e^(B*X) – A*X^2	15.	Y = cos(A*X+B) – A*X + e^(B*X)
6.	Y = sin(A*X) – A*X + B*X^2	16.	Y = sin^2(A*X) – B*X + A*X^3
7.	Y = sin^2(A*X) – e^(B*X) + B*X^3	17.	Y = A*cos(X) + A^X + B*cos^2(X)
8.	Y = cos^2(B*X) + B*X^2 + A^X	18.	Y = e^(B*X) + B*X^2 + cos(X)
9.	Y = e^(B*X) + A*X^2 – B*X^3	19.	Y = sin^2(A*X) – B*X^2 – A*X^3
10.	Y = sin^2(B*X) – A*X^3 + B*X^2	20.	Y = A*cos^2(B*X) + e^(B*X) + A*cos(X)

Таблица 19.4

Варианты заданий для построения поверхности функции

1.	Z = X^2 + Y^2/2	11.	Z = |X + Y| * e^(X*Y)
2.	Z = X*Y + sin(X*Y)	12.	Z = sin(X + Y) * e^(X*Y)
3.	Z = sin(X)*Y + X*cos(Y)	13.	Z = sin(X)*cos(Y) * e^(X*Y)
4.	Z = X^2 + e^X* Y^4	14.
5.	Z = sin(X+Y) + X^2	15.	Z = cos(X*Y) – (2*X^2 – Y^2)
6.	Z = 2*X^2 – 3*Y^2	16.	Z = (X^2 + Y^2)*cos(Y) e^(X*Y)c
7.	Z = X^2 + X*Y + Y^2	17.	Z = e^(X*Y) – cos(X^2 + Y^2)
8.	Z = sin(X) * cos(Y) + X*Y	18.	Z = sin(X – Y) * |X^2 + Y|
9.		19.	Z = |sin(X*Y)| + e^(X+Y)
10.	Z = sin(X*Y) + cos(X*Y)	20.	Z = cos(X*Y)^2 + sin(X*Y)^2

Дата добавления: 2014-12-23