Xreferat.com » Рефераты по информатике и программированию » Основы работы с редакторами MS Word, MS Excel и Visual Basic

Основы работы с редакторами 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:

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


Таблица word (использованием макросов):

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

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

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

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

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

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

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

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

Error: Reference source not foundError: Reference source not foundError: Reference source not foundError: Reference source not found7373Основы работы с редакторами MS Word, MS Excel и Visual Basic

Корень Х1=

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

Корень Х2=

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


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


Коэффициент А= 52
Коэффициент В= 107
Коэффициент С= -4-3
Дискриминант D= 180
Корень Х1= -2,342
Корень Х2= 0,342

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


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

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

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

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


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


Задача – Вычисление параметров треугольника

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


Сторона А= 4
Сторона B= 6
Сторона C= 5

Результаты:

Error: Reference source not found1Error: Reference source not found1Error: Reference source not found1111Error: Reference source not foundError: Reference source not found!Синтаксическая ошибка, AND!Синтаксическая ошибка, AND

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

0,759,922

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

0,129,922

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

0,569,922
Периметр 1515Error: Reference source not found9,92215
Площадь Error: Reference source not foundError: Reference source not foundError: Reference source not foundError: Reference source not found9,9229,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


Запишите макрорекордером код любой операции форматирования текста.


Основы работы с редакторами MS Word, MS Excel и Visual Basic или меню Сервис а Макрос… а Макросы а Макрос1 а Выполнить.


Задача 4


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

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


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


Расстояние между плоскостями Основы работы с редакторами MS Word, MS Excel и Visual Basic и Основы работы с редакторами MS Word, MS Excel и Visual Basic можно определить как расстояние между прямыми, лежащими в этих плоскостях и заданными своими направляющими векторами Основы работы с редакторами MS Word, MS Excel и Visual Basic, Основы работы с редакторами MS Word, MS Excel и Visual Basic и точками, через которые они проходят Основы работы с редакторами MS Word, MS Excel и Visual Basic, Основы работы с редакторами MS Word, MS Excel и Visual Basic соответственно. Известно, что прямая лежит на плоскости тогда и только тогда, когда

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


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


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


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


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


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


Основы работы с редакторами 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.

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


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


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

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


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


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

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

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


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

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


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

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


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


Задача 5


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

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


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


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

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


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


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


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


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


Задача 6


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

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


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

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

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

n=

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

Результаты:

Число сочетанийОсновы работы с редакторами MS Word, MS Excel и Visual Basic


Число размещений Основы работы с редакторами MS Word, MS Excel и Visual Basic


Число перестановок Основы работы с редакторами MS Word, MS Excel и Visual Basic



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

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


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


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


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


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


Function Fact(n) As Long

If n = 0 Then

Fact = 1

Else

Fact = Fact(n - 1) * n

End If

End Function