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

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

задачка 1

Отыскать корешки квадратного уравнения Ах2
+ Вх + С = 0 по соотношениям

;

2

)0.5

Лист Excel:

Таблица Word (внедрением макросов):

Коэффициент А=

Коэффициент В=

Коэффициент С=

Дискриминант D=

Корень Х1=

Корень Х2=

Таблица Word (внедрение меню Таблица — Формула, при изменении входных данных для обновления результатов нужно в контекстном меню результатов избрать строчку Обновить поле)

Коэффициент А=
5

Коэффициент В=
10

Коэффициент С=
-4

Дискриминант D=
180

Корень Х1=
-2,342

Корень Х2=
0,342

Формулы сокращенного умножения:

Гиперссылки на файл , пространство в документе
, электрическую почту.

Начальные данные:

Сторона А=
4

Сторона B=
6

Сторона C=
5

Результаты:

Косинус угла
0,75

Косинус угла
0,12

Косинус угла
0,56

Периметр

15

Площадь
9,922

задачка 2

Малый оклад
Отчисления в фонды
Подоходный налог

132
1
13

Фамилия
Год рожден.
Разряд
Начислить
В фонды
Налоги
К выдаче

Репка
2004
12
1584
15,84
205,92
1362,24

Бабка
1948
11
1452
14,52
188,76
1248,72

Дедка
1940
17
2244
22,44
291,72
1929,84

Внучка
1980
15
1980
19,8
257,4
1702,8

Жучка
1999
8
1056
10,56
15,84
1029,6

Мышка
2003
3
396
3,96
51,48
340,56

задачка 3

либо меню Сервис — Макрос… — Макросы — Макрос1 — Выполнить.

задачка
4

Вычисление расстояний от точки прямой полосы до плоскости; вычисление расстояния меж плоскостями.

Расстоянием от точки до плоскости именуется длина перпендикуляра, опущенного из точки на плоскость. Расстояние от точки М(х1
, y1
, z1
) до плоскости Ax + By + Cz + D = 0 рассчитывается по формуле

Расстояние меж плоскостями и можно найти как расстояние меж прямыми, лежащими в этих плоскостях и данными своими направляющими векторами , и точками, через которые они проходят , соответственно. Понятно, что ровная лежит на плоскости и тогда лишь тогда, когда

.

Координаты точек можно взять таковыми:

.

Расстояние меж прямыми находят по формуле

.

С учётом того, что известны уравнения плоскостей (коэффициенты), получим последующий вид формулы:

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

В таблицах 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 = Абс(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 = Абс((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)

B1 = Int(TextBox10.Text)

C1 = Int(TextBox9.Text)

D1 = Int(TextBox8.Text)

A2 = Int(TextBox15.Text)

B2 = Int(TextBox14.Text)

C2 = Int(TextBox13.Text)

D2 = Int(TextBox12.Text)

Label9.Caption = Str(Абс(A * x + B * y + C * z + D) / (A ^ 2 + B ^ 2 + C ^ 2) ^ 0.5)

Label10.Caption = Str(Абс((D1 / C1 — D2 / C2) * (A1 * B2 — A2 * B1)) / ((B1 * C2 — B2 * C1) ^ 2 + (A1 * C2 — A2 * C1) ^ 2 + (A1 * B2 — A2 * B1) ^ 2) ^ 0.5)

EndSub

В итоге получим последующее решение:

задачка 5

Найти наличие корня функции на интервале

1

2

и выстроить её график. Отыскать те значения коэффициентов

при котором на данном интервале есть корень. При данном значении коэффициентов

подобрать интервал, содержащий корень функции.

Для нахождения интервала пользуемся средствами Поиска решения
,устанавливая последующие характеристики (доп ограничение на интервал: , т.к. функция имеет конкретно такую область определения):

Для нахождения коэффициентов также пользуемся средствами Поиска решения
, устанавливая последующие характеристики:

В обоих вариантах опосля нажатия клавиши Выполнить
, возникает последующее окно, в каком необходимо лишь надавить клавишу ОК
:

Найдём решение данной задачки с внедрением формы юзера.

Задачка 6

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

Используя элементы управления:

Начальные данные:

m=

n=

Результаты:

Число сочетаний

Число размещений

Число перестановок

Используя форму юзера:

Сделаем форму вида:

На нажатие клавиши Высчитать определим последующую функцию:

Private Sub CommandButton1_Click()

m = TextBox1.Text

n = TextBox2.Text

If m < n Then

Label6.Caption = Fact(n) / (Fact(m) * Fact(n — m))

Label7.Caption = Fact(n) / Fact(n — m)

Label8.Caption = Fact(n)

Else

response = MsgBox(«Введите n > m», vbOKOnly, «Ошибкавводаданных»)

Label6.Caption = «»

Label7.Caption = «»

Label8.Caption = «»

End If

End Sub

В тексте процедуры употребляется вспомогательная функция, подсчитывающая

Function Fact(n) As Long

If n = 0 Then

Fact = 1

Else

Fact = Fact(n — 1) * n

End If

End Function

]]>