Контрольная работа: Основы работы с редакторами MS Word, MS Excel и Visual Basic

Решим поставленную задачу.

В таблицах Word.

Исходные данные:
Координаты точки М:	x	y	z
	1	0	4	1,5
Коэффициенты в уравнении плоскости π:	A	B	C	D
	4	2	3	1
Коэффициенты в уравнении плоскости π1 :	-3	2	4	4
Коэффициенты в уравнении плоскости π2 :	-2	1	3	0
Результаты :
Расстояние от точки М до плоскости π:	3,16
Расстояние между плоскостями π1 и π2 :	0,41

В таблицах Excel.

Создайте функцию пользователя для Мастера Функций

В редакторе VisualBasic создадим модуль с функциями:

Dim m(3), p(4), p1(4), p2(4) As Double

Function RastMPi(m, p) As Double

RastMPi = Abs(p(1) * m(1) + p(2) * m(2) + p(3) * m(3) + p(4)) / ((p(1)) ^ 2 + (p(2)) ^ 2 + (p(3)) ^ 2) ^ 0.5

End Function

Function RastP1P2(p1, p2) As Double

RastP1P2 = Abs((p1(4) / p1(3) - p2(4) / p2(3)) * (p1(1) * p2(2) - p2(1) * p1(2))) / ((p1(2) * p2(3) - p2(2) * p1(3)) ^ 2 + (p1(1) * p2(3) - p2(1) * p1(3)) ^ 2 + (p1(1) * p2(2) - p2(1) * p1(2)) ^ 2) ^ 0.5

End Function

1. Используя макрорекордер, создайте макрос для задачи.

2. Закрепите его за элементом управления в тексте документа или рабочей книги.

В среде VBA создадим форму вида:

На нажатие кнопки Рассчитать определим процедуру:

Private Sub CommandButton1_Click()

Dim x, y, z, A, B, C, D, A1, B1, C1, D1, A2, B2, C2, D2 As Double

x = Int(TextBox1.Text)

y = Int(TextBox2.Text)

z = Int(TextBox3.Text)

A = Int(TextBox4.Text)

B = Int(TextBox5.Text)

C = Int(TextBox6.Text)

D = Int(TextBox7.Text)

A1 = Int(TextBox11.Text)