Написать программный код четырех процедур Процедуры-подпрограммы с соответствующими формальными параметрами для вычисления значения переменной z

Написать программный код четырех процедур:
Процедуры-подпрограммы с соответствующими формальными параметрами для вычисления значения переменной z.
QUOTE
Процедуры ввода исходных данных и процедуры вывода.
Событийной процедуры, которая осуществляет вызов процедуры ввода исходных данных, процедуры вычисления выражения и процедуры вывода результата.

Для решения задачи формализация не требуется.
Блок-схема

Программный код решения задачи:
Схема алгоритма событийной процедуры содержит вызовы трех составленных процедур: процедуры ввода исходных данных (x, y) из элементов управления TextBox формы, процесс (вычисление выражения) и процедуры вывода результата в элемент управления TextBox.
Imports System.Math
Public Class Form1

‘Функция ввода значения вещественного типа из TextBox
Function vvod(ByVal T As TextBox) As Double
Return CDbl(T.Text)
End Function

‘Процедура вывода результата в TextBox
Sub vivod(ByVal Z As Double, ByRef T As TextBox)
T.Text = CStr(Z)
End Sub

‘Процедура-подпрограмма для вычисления значения переменной z
Function Resh(ByVal x As Double, ByVal y As Double) As Double
Return (208 * Log(x) + x * x) / (Abs(x – y * y) – Exp(Math.E ^ (-y)))
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim h, x, y As Double
x = vvod(TextBox1)
y = vvod(TextBox2)
h = Resh(x, y)
vivod(h, TextBox3)
End Sub
End Class

Написать программный код четырех процедур:
Процедуры-функции нахождения активной мощности P цепи переменного тока с сопротивлением R, через которую проходит ток силой I по формуле P=I2R. Параметрами процедуры должны быть сила тока и сопротивление.
Процедуры ввода исходных данных и процедуры вывода результатов.
Событийной процедуры для вычисления мощности трёх различных цепей с известными сопротивлениями R1,R2,R3 и током силой I1,I2,I3 , которая должна содержать: вызов процедуры ввода сопротивлений и токов для трех цепей, вызовы процедуры-функции для вычисления их мощностей (т.е. вызывать процедуру-функцию 3 раза) и вызов процедуры вывода результатов.

Формализация задачи не требуется

Блок-схема

Программный код решения задачи:
В соответствии с требованиями задания разобьем

Часть выполненной работы