Tan Function

Tan (Number)

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

REM ផ្នែក​ដែល​នៅ​ទល់​មុខ​នឹង​មុំ និង​មុំ​ (គិត​ជា​ដឺក្រេ)​ ដើម្បី​គណនា​ប្រវែង​របស់​ផ្នែក​ដែល​នៅ​ជាប់​នឹង​មុំ ៖

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