Tan Function

Tan (Number)

REM In this example, the following entry is possible for a right-angled triangle:

REM The side opposite the angle and the angle (in degrees) to calculate the length of the side adjacent to the angle:

Sub ExampleTangens

REM Pi = 3.1415926 is a pre-defined variable

Dim d1 As Double

Dim dAlpha As Double

    d1 = InputBox("Enter the length of the side opposite the angle: ","opposite")

    dAlpha = InputBox("Enter the Alpha angle (in degrees): ","Alpha")

    Print "the length of the side adjacent the angle is"; (d1 / tan (dAlpha * Pi / 180))

End Sub