Вычисление стороны треугольника по теореме синусов - Visual Basic .NET

Формулировка задачи:

даны углы треугольника и радиус описанной окружности 1. надо написать процедуру-функцию, которая вычисляет сторону треугольника а , по теореме синусов " a/sin a=2R " в параметрах процедуры естественно a и R. 2. написать код, в котором эта процедура используется три раза, для вычисления трёх сторон. то есть вводим углы треугольника и радиус окружности и на выходе получаем три стороны. код, видимо, короткий, можно без комментариев - всё пойму.

Решение задачи: «Вычисление стороны треугольника по теореме синусов»

textual
                            Листинг программы 
                        

                            Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Dim To_Radian As Double = Math.PI / 180.0R
 
        Dim Sin_Teorem =
        Function(alpha As Double, rad As Double) As Double
 
            Return Math.Sin(alpha) * 2.0R * rad
 
        End Function
 
        Dim a As Double = Val(InputBox("Введите a угол треугольника(градусы):", "Угол", "0.0")) * To_Radian
        Dim b As Double = Val(InputBox("Введите b угол треугольника(градусы):", "Угол", "0.0")) * To_Radian
        Dim c As Double = Val(InputBox("Введите c угол треугольника(градусы):", "Угол", "0.0")) * To_Radian
 
        Dim r As Double = Val(InputBox("Введите радиус описанной окружности:", "Радиус", "0.0"))
 
        MsgBox("Стороны в треугольнике такие:" & vbNewLine &
               Sin_Teorem(a, r).ToString & vbNewLine &
               Sin_Teorem(b, r).ToString & vbNewLine &
               Sin_Teorem(c, r).ToString & vbNewLine, MsgBoxStyle.Information)
 
    End Sub
 
End Class
                        