Информатика для I курса. Часть I. Никифоров С.Н. - 10 стр.

UptoLike

ВУЗ: 

СПбГАСУ | Санкт-Петербург

Составители: 

Рубрика: 

18 19
табулирование функции в Excel;
табулирование функции в VBA.
Критерием правильности является совпадение полученных та-
блиц.
Поэтому в соответствии с условием задачи спектр значений
функции Y(x) необходимо заменить на спектр значений функции
V(x), диапазон B6:B32 (рис. 4.1), и рядом, в диапазоне С6:С32,
сформировать спектр значений функции W(x) (см. рис. 4.1).
Именно
эти два столбца ПОЛНОСТЬЮ используются для по-
строения графика.
ПРОГРАММНЫЙ МОДУЛЬ VBA ИЗ ЛАБОРАТОРНОЙ РАБОТЫ
«ТАБУЛИРОВАНИЕ ФУНКЦИИ» СКОПИРОВАТЬ В МОДУЛЬ
ОБЪЕКТА CommandButton ЛАБОРАТОРНОЙ РАБОТЫ
«ТАБУЛИРОВАНИЕ ДВУХ ФУНКЦИЙ».
Внести соответствующие изменения.
Программа табулирования двух функций в VВА
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim x As Single
Dim xn As Single
Dim xk As Single
Dim dx As Single
e = 0.001
xn = InputBox("Xn = ", "Ввод начального значения x", -1, 8000, 2000)
xk = InputBox("Xk = ", "Ввод конечного значения x", 0.3, 8000, 1000)
dx = InputBox("dX = ", "Ввод значения шага x", 0.05, 8000, 2000)
i = InputBox("i = ", "Ввод значения начала таблицы, строка i", 5, 8000, 1000)
j = InputBox("j = ", "Ввод значения начала таблицы, столбец j", 4, 8000, 2000)
x = xn: Cells(i, j) = "X(vba)": Cells(i, j + 1) = "V(vba)": Cells(i, j + 2) = "W(vba)"
10 Cells(i + 1, j) = x
v = Sin(x ^ 2) + Cos(Application.WorksheetFunction.Pi * x) ^ 3
Cells(i + 1, j + 1) = v
w = Cos(x ^ 3) ^ 2 - Sin(Application.WorksheetFunction.Pi * x ^ 2)
Cells(i + 1, j + 2) = w
Рис. 4.1

Страницы