Sin Function

Sin (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 hypotenuse:

Sub ExampleSine

REM Pi = 3.1415926 is a predefined variable

Dim d1 As Double

Dim dAlpha As Double

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

    dAlpha = InputBox$("알파 각도(도 단위) 입력: ","Alpha")

    Print "The length of the hypotenuse is"; (d1 / sin (dAlpha * Pi / 180))

End Sub