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

UptoLike

ВУЗ: 

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

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

Рубрика: 

24 25
Диапазон B6:L16 используется для построения графика по-
верхности.
Программа построения поверхности в VВА
Private Sub CommandButton2_Click()
Dim i As Integer
Dim ni As Integer
Dim j As Integer
Dim nj As Integer
Dim x As Single
Dim xn As Single
Dim xk As Single
Dim dx As Single
Dim y As Single
Dim yn As Single
Dim yk As Single
Dim dy As Single
e = 0.001
xn = InputBox("Xn = ", "Ввод начального значения X", 0, 8000, 2000)
xk = InputBox("Xk = ", " Ввод конечного значения X", 1, 8000, 1000)
dx = InputBox("dX = ", " Ввод значения шага X", 0.1, 8000, 2000)
yn = InputBox("Yn = ", " Ввод начального значения Y", 0, 8000, 2000)
yk = InputBox("Yk = ", " Ввод конечного значения Y", 1, 8000, 1000)
dy = InputBox("dY = ", " Ввод значения шага Y", 0.1, 8000, 2000)
i = InputBox("i = ", "Ввод начала таблицы, строка I", 20, 8000, 1000)
j = InputBox("j = ", " Ввод начала таблицы, столбец J", 1, 8000, 2000)
Cells(i, j) = "X/Y"
ni = i: nj = j: x = xn
10 Cells(i + 1, j) = x
x = x + dx: i = i + 1
If x <= xk + e Then GoTo 10
y = yn: i = ni
20 Cells(i, j + 1) = y
y = y + dy: j = j + 1
If y <= yk + e Then GoTo 20
y = yn: j = nj
30 i = ni: x = xn
40 z = 2 * x ^ 2 + 3 * y ^ 2
Cells(i + 1, j + 1) = z
i = i + 1: x = x + dx
If x <= xk + e Then GoTo 40
y = y + dy: j = j + 1
If y <= yk + e Then GoTo 30
End Sub
Некоторые комментарии к программе:
в программе после ввода исходных данных сначала форми-
руются и выводятся в соответствующие ячейки значения осей
X и Y;
в программе с помощью промежуточных переменных ni и nj
запоминаются начальные значения i – строки, с которой начина-
ется таблица в VBA и j – столбца, с которого начинается таблица
в VBA, так как после формирования значений осей X и Y перемен-
ные i и j приобрели конечные значения.
6. КВАДРАТИЧНЫЕ ФОРМЫ
Целью лабораторной работы «Квадратичные формы» является
освоение матричных функций Excel и VBA.
Выполнение лабораторной работы предполагает знание эле-
ментов векторного анализа, в частности, матричных операций.
Лабораторная работа «Квадратичные формы» состоит из двух
частей, в первую часть входят:
решение матричного уравнения в Excel;
решение матричного уравнения в Excel с предварительным
преобразованием;
вычисление квадратичной формы в Excel;
вычисление квадратичной формы с использованием матрич-
ных функций Excel;
вычисление квадратичной формы с использованием матрич-
ных функций VBA,
а во вторую:
операции над массивами в Excel;
операции над массивами в VBA.

Страницы