Imports System.Math

Module Module1
    Sub Main()
        Dim a = 18
        Dim maxSquare = 0.0
        Dim resultAngle = 0.0

        For angle = 0 To 3.14 Step 0.01
            Dim square = a * a * Sin(angle)

            If square > maxSquare Then
                maxSquare = square
                resultAngle = angle
            End If
        Next angle

        Console.WriteLine(resultAngle)
    End Sub
End Module