Dim p1 As Single, s1 As Single, p2 As Single, s2 As Single

'TxtP.BackColor = QBColor(14)

'TxtS.BackColor = QBColor(14)

'TxtP.ForeColor = QBColor(2)

'TxtS.ForeColor = QBColor(2)

'frmТреугольник.BackColor = QBColor(15)

A = Val(TxtA.Text)

B = Val(TxtB.Text)

C = Val(TxtC.Text)

D = Val(TxtD.Text)

E = Val(TxtE.Text)

If A + B > E And A + E > B And B + E > A And C + D > E And C + E > D And D + E > C Then

Call treug(A, B, E, p1, s1)

Call treug(C, D, E, p2, s2)

TxtP.Text = Str(p1 + p2 - 2 * E)

TxtS.Text = Str(s1 + s2)

Else

MsgBox "ошибка" + Chr(13) + "с такими исх данными 4-х уг-к не построишь", vbCritical + vbOKOnly, "ошибка"

TxtA.Text = ""

TxtB.Text = ""

TxtC.Text = ""

TxtD.Text = ""

TxtE.Text = ""

TxtP.Text = ""

TxtS.Text = ""

TxtA.SetFocus

End If

End Sub

Первый раз при вызове общей процедуры ей в качестве входных параметров передаются значения сторон а, b и значение диагонали е. При втором вызове общей процедуры ей в качестве входных параметров передаются значения сторон с, d и значение диагонали е.

8. Проверьте правильность функционирования проекта.

9. Сохраните изменения в проекте.