Function AngleC(Bangle, b, C)
    AngleC = Application.Asin((C * Math.Sin(Bangle)) / b) 'Âû÷èñëåíèå óãëà C
End Function
Function AngleA(b, C)
    AngleA = WorksheetFunction.Pi - (b + C) 'Âû÷èñëåíèå óãëà À
End Function

Function Astrih(b, Cs)
    Astrih = WorksheetFunction.Pi - (b + Cs)
End Function

Function Sidea(A, Bangle, b)
    Sidea = ((b * (Math.Sin(A)) / Math.Sin(Bangle))) 'Âû÷èñëåíèå ñòîðîíû à
End Function
Function Areas(A, C, b)
    Areas = ((A * C * Math.Sin(b)) / 2) 'Âû÷èñëåíèå ïëîùàäè ò-êà
End Function

Function Cshtrih(C)
    Cshtrih = WorksheetFunction.Pi - C
End Function

Function AmaloeShtrih(b, Astrih, Bangle)
    AmaloeShtrih = (b * Math.Sin(Astrih)) / Math.Sin(Bangle)
End Function

Function Sshtrih(AmaloeShtrih, Cmaloe, Bangle)
    Sshtrih = (AmaloeShtrih * Cmaloe * Math.Sin(Bangle)) / 2
End Function

Sub Rezult() 'Ïðîöåäóðà äëÿ âûâîäà ðåçóëüòàòîâ
Dim A, b, C, AngleB, AngleC, AngleA, S As Single
Const Pi = 3.14
b = 2: C = 2.5: AngleB = WorksheetFunction.Pi / 4
    AngleC = Application.Asin((C * Sin(AngleB)) / b)
    MsgBox ("AngleC= " & AngleC) 'Âûâîä óãëà Ñ âî âñïëûâàþùåì îêíå
    AngleA = Pi - (AngleB + AngleC)
    MsgBox ("AngleA= " & AngleA) 'Âûâîä óãëà À âî âñïëûâàþùåì îêíå
    A = ((b * Sin(AngleA)) / Sin(AngleB))
    MsgBox ("side a= " & A) 'Âûâîä ñòîðîíû à âî âñïëûâàþùåì îêíå

    S = ((A * C * Sin(AngleB)) / 2)
     MsgBox ("S= " & S) 'Âûâîä ïëîùàäè âî ñïëûâàþùåì îêíå

    MsgBox ("AngleC in degrees= " & (AngleC * 180) / 3.141) 'Âûâîä óãëà Ñ â ãðàäóñàõ
    MsgBox ("AngleA in degrees= " & (AngleA * 180) / 3.141) 'Âûâîä óãëà A â ãðàäóñàõ
End Sub