Cos Function

Cos (Number)

REM The following example allows for a right-angled triangle the input of

REM 시컨트 및 각도(도 단위)는 빗변의 길이를 계산합니다.

Sub ExampleCosinus

REM rounded Pi = 3.14159

Dim d1 As Double, dAngle As Double

    d1 = InputBox$ (""Enter the length of the adjacent side: ","Adjacent")

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

    Print "The length of the hypothenuse is"; (d1 / cos (dAngle * Pi / 180))

End Sub