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

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

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

upd. хоть в коде вычисление напишите. уж вывод на экран и привязку к кнопке сделаю.

можен, возможно этот код "подрихтовать" под 6.0 из дот-нет?

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

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

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

                            Const Pi = 3.1415926536
 
Private Sub Command1_Click()
 
        r# = Abs(CDbl(Me.Text4.Text))
        
        If r# <= 0.00000001 Then
           MsgBox "Ошибочный радиус!"
           Exit Sub
        End If
 
        alpha# = Abs(CDbl(Me.Text1.Text)) * Pi / 180
        beta# = Abs(CDbl(Me.Text2.Text)) * Pi / 180
        gamma# = Abs(CDbl(Me.Text3.Text)) * Pi / 180
 
        If alpha# <= 0.00000001 Or beta# <= 0.00000001 Or gamma# <= 0.00000001 Or _
           (alpha# + beta# + gamma#) - 180 >= 0.00001 Then
           MsgBox "Один или более углов неверны!"
           Exit Sub
        End If
 
        a# = Dist(r#, alpha#)
        b# = Dist(r#, beta#)
        c# = Dist(r#, gamma#)
 
        Me.Text5.Text = Format$(a#, "000.00")
        Me.Text6.Text = Format$(b#, "000.00")
        Me.Text7.Text = Format$(c#, "000.00")
 
End Sub
 
Function Dist(r As Double, fi As Double) As Double
         Dist = 2 * r * Sin(fi)
End Function
                        