Dim input As Double = Console.ReadLine()
Console.WriteLine("1 for sine, 2 for cosine, or 3 for tangent")
Select Case Console.ReadLine()
Console.WriteLine(Math.Round(Math.Sin(DegreesToRadians(input)), 2))
Console.WriteLine(Math.Round(Math.Cos(DegreesToRadians(input)), 2))
Console.WriteLine(Math.Round(Math.Tan(DegreesToRadians(input)), 2))
Function DegreesToRadians(deg As Double)
Return (Math.PI / 180) * deg