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

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)

End Sub

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

 

Задача 5

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

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

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

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

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

  Задача 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

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

Function Fact(n) As Long

If n = 0 Then

Fact = 1

Else

Fact = Fact(n - 1) * n

End If

End Function