Module Module1
Sub Main()
Dim a_base As Integer = 3, b_left_side As Integer = 4, c_right_side As Integer = 5
Dim perimeter As Double = a_base + b_left_side + c_right_side
Console.WriteLine("Perimeter = {0:F2}", perimeter)
Dim semi_perimeter As Double = (a_base + b_left_side + c_right_side) / 2
Dim area_triangle1 As Double = Math.Sqrt(semi_perimeter * (semi_perimeter - a_base) *
(semi_perimeter - b_left_side) *
(semi_perimeter - c_right_side))
Console.WriteLine("Area triangle1 = {0:F2}", area_triangle1)
Dim b_base As Integer = 4, a_right_side As Integer = 6, angle_ab As Integer = 55
Dim area_triangle2 As Double = (a_right_side * b_base *
Math.Sin((Math.PI / 180) *
angle_ab)) / 2
Console.WriteLine("Area triangle2 = {0:F2}", area_triangle2)
Dim height As Integer = 5
b_base = 8
Dim area_triangle3 As Double = (b_base * height) / 2
Console.WriteLine("Area triangle3 = {0:F2}", area_triangle3)
End Sub
End Module
'run:
'
'Perimeter = 12.00
'Area triangle1 = 6.0
'Area triangle2 = 9.83
'Area triangle3 = 20.0
