Visual Basic

[albertovicat]

Bueno, las encontré:
----------------------------------------------
Public Function ArcoSeno(X As Single) As Single
Dim Resul As Single
Resul = CSng(Atn(X / Sqr(-X * X + 1)))
ArcoSeno = Resul
End Function
----------------------------------------------
Public Function ArcoCos(X As Single) As Single
Dim Resul As Single
Resul = CSng(Atn(Sqr(-X * X + 1) / X))
ArcoCos = Resul
End Function
----------------------------------------------
Están como Public porque yo las tengo en un módulo, para que sean accesibles desde cualquier Form.
¡POR FAVOR!: Verificalas bien antes de usarlas. Pegalas en un módulo de un proyecto nuevo, abrí la ventana inmediato (Control+G) y probalas bien probadas haciento Print Sin(x), y a continuación Print ArcoSeno(el valor que te dió), y a ver si te dá de nuevo x.
Suerte