Программирование алгоритмов линейной структуры при помощи пользовательских функций и форм MS Excel. Отчет по ЛР№5_VBA. Отчет о выполнении индивидуального задания лабораторной работы 5 Программирование алгоритмов линейной структуры при помощи пользовательских функций и форм ms excel

• Название: Отчет о выполнении индивидуального задания лабораторной работы 5 Программирование алгоритмов линейной структуры при помощи пользовательских функций и форм ms excel
• Анкор: Программирование алгоритмов линейной структуры при помощи пользовательских функций и форм MS Excel
• Дата: 16.12.2022
• Размер: 0.63 Mb.
• Имя файла: Отчет по ЛР№5_VBA.docx
• Тип: Отчет; #848538

Отчет о выполнении индивидуального задания лабораторной работы № 5 «Программирование алгоритмов линейной структуры при помощи пользовательских функций и форм MS Excel»

Задание №1

1. 
   Постановка задачи
   

Создать пользовательскую функцию вычисления объем шарового сегмента, если известны радиус его основания r и высота h сегмента (вариант 35). При создании функции добавить описание ­– назначение функции, Ф.И.О.., группа.
Вычислим объем шарового сегмента с использованием формулы:

, где

h – высота шарового сегмента;

r – радиус основания шарового сегмента.

2. 
   Схема алгоритма
   

3. 
   Листинг (код) программы
   

Public Function Объем_шарового_сегмента(r As Double, h As Double)

Объем_шарового_сегмента = Application.Pi() * h * (3 * r ^ 2 + h ^ 2) / 6

End Function

4. 
   Окно результата:
   

Задание №2

1. 
   П остановка задачи
   

Разработать форму вычисления значения функции:

Предусмотреть запуск формы через кнопку.

2. 
   Схема алгоритма:
   

3. 
   Листинг (код) программы:
   

Private Sub Clean_Click()

Label1.Caption = "y = "
End Sub
Private Sub CommandButton1_Click()

Dim x, y As Double

Dim a, b As Double
'Ввод значений аргумента функции и параметров

a = Val(InputBox("Введите значение a", "Ввод данных"))

b = Val(InputBox("Введите значение b", " Ввод данных "))

x = Val(InputBox("Введите значение x", " Ввод данных "))
'Вычисление функции

y = (a + 1 / Log(Abs(Sin(x) + Cos(Log(Abs(a * x - b)))))) ^ 2 / (Tan(Log(2 * x) ^ 2) ^ 2)

'Вывод значения функции

MsgBox "При x = " & x & " ,a = " & a & " ,b = " & b & " Функция y = " & y
'Вывод значения в надпись

Label1.Caption = Label1.Caption + Str(y)
End Sub
Private Sub ExitForm_Click()

End

End Sub

4. 
   Окно результата: