Реферат: Основы работы с редакторами MS Word, MS Excel и Visual Basic

Задача 1

 

Найти корниквадратного уравнения Ах2 + Вх + С = 0 по соотношениям X1 = (-B+D)/A/2; X2 = — (B+D)/A/2, где D=(B2-4AC)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

 

Создайте ведомостьлюбого содержания с помощью таблиц редактора Word. (ведомость на выдачу заработнойплаты.)

 

Минимальный оклад Отчисления в фонды Подоходный налог 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 4 1,5 Коэффициенты в уравнении плоскости π:

A

B

C

D

4 2 3 1

Коэффициенты в уравнении плоскости π1:

-3 2 4 4

Коэффициенты в уравнении плоскости π2:

-2 1 3

Результаты:

Расстояние от точки М до плоскости π: 3,16

Расстояние между плоскостями π1 и π2:

0,41

В таблицах Excel.

/>

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

/>


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

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

FunctionRastMPi(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

FunctionRastP1P2(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 SubCommandButton1_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(Abs(A * x + B * y + C * z + D) / (A ^ 2 + B ^ 2 + C ^ 2) ^ 0.5)

Label10.Caption= Str(Abs((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)

End Sub


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

/>

 

Задача 5

Определить наличие корняфункции /> наинтервале [x1,x2] и построить её график. Найти те значениякоэффициентов А, В при котором на заданном интервале есть корень.При заданном значении коэффициентов А, В подобрать интервал,содержащий корень функции.


/>

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

/>


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

/>

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

/>

Найдём решение даннойзадачи с использованием формы пользователя.

 Задача 6

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

Вычисление числасочетаний, размещений, перестановок.

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

Исходные данные: m=

/>

n=

/>

Результаты:

/>

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

/>

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

/>

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

/>

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

Создадим форму вида:

/>

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

Private SubCommandButton1_Click()

m =TextBox1.Text

n =TextBox2.Text

If m < nThen

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

В тексте процедурыиспользуется вспомогательная функция, подсчитывающая значение n! Приведём текст данной функции:

FunctionFact(n) As Long

If n = 0 Then

Fact = 1

Else

Fact = Fact(n- 1) * n

End If

End Function

еще рефераты
Еще работы по информатике, программированию