Контрольная работа: Основы работы с редакторами MS Word, MS Excel и Visual Basic
Название: Основы работы с редакторами MS Word, MS Excel и Visual Basic Раздел: Рефераты по информатике Тип: контрольная работа | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Задача 1 Найти корни квадратного уравнения Ах2 + Вх + С = 0 по соотношениям X 1 = (- B + D )/ A /2 ; X 2 = - ( B + D )/ A /2, где D =( B 2 -4 AC )0.5 Лист Excel: Таблица word (использованием макросов):
Таблица Word (использование меню Таблица - Формула, при изменении входных данных для обновления результатов необходимо в контекстном меню результатов выбрать строку Обновить поле)
Формулы сокращенного умножения: Гиперссылки на файл , место в документе , электронную почту. Задача – Вычисление параметров треугольника
Задача 2 Создайте ведомость любого содержания с помощью таблиц редактора Word . (ведомость на выдачу заработной платы.)
Задача 3 Запишите макрорекордером код любой операции форматирования текста. или меню Сервис - Макрос… - Макросы - Макрос1 - Выполнить. Задача 4 Вычисление расстояний от точки прямой линии до плоскости; вычисление расстояния между плоскостями. Расстоянием от точки до плоскости называется длина перпендикуляра, опущенного из точки на плоскость. Расстояние от точки М(х1 , y1 , z1 ) до плоскости Ax + By + Cz + в = 0 вычисляется по формуле Расстояние между плоскостями
Координаты точек можно взять такими:
Расстояние между прямыми находят по формуле
С учётом того, что известны уравнения плоскостей (коэффициенты), получим следующий вид формулы: Решим поставленную задачу. В таблицах Word.
В таблицах 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) 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) EndSub В результате получим следующее решение: Задача 5Определить наличие корня функции Для нахождения интервала пользуемся средствами Поиска решения
,устанавливая следующие параметры (дополнительное ограничение на интервал: Для нахождения коэффициентов также пользуемся средствами Поиска решения , устанавливая следующие параметры: В обоих случаях после нажатия кнопки Выполнить , появляется следующее окно, в котором нужно только нажать кнопку ОК : Найдём решение данной задачи с использованием формы пользователя. Задача 6Реализовать задачу своего варианта средствами VBA любого приложения, используя стандартный модуль, форму пользователя, элементы управления в документе, книге. Вычисление числа сочетаний, размещений, перестановок. Используя элементы управления:
Используя форму пользователя: Создадим форму вида: На нажатие кнопки Рассчитать определим следующую процедуру: 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 |