math9

Calculating ArcSin and ArcCos

Calculating ArcSin and ArcCos

There is no ArcSin and ArcCos functions in Visual Basic, but there is
ArcTan function, and you can use it to calculate both ArcSin and ArcCos.

Preparations

Add 1 Command Button to your form.

Form Code

Function ArcSin(X As Double) As Double
ArcSin = Atn(X / Sqr(-X * X + 1))
End Function

Function ArcCos(X As Double) As Double
ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function

Private Sub Command1_Click()
' replace the 0.5 below with the degree (in radians) that
' you want to calculate its ArcSin or ArcCos value
MsgBox "ArcSin(0.5) = " & ArcSin(0.5)
MsgBox "ArcCos(0.5) = " & ArcCos(0.5)
End Sub