Cómo definir y llamar a la función ARCCOS en vb

Arccosx se puede expresar como ATN(sqr(1-x^2)/x).

Aquí hay un ejemplo:

Pi constante = 3.1415926

Subcomando privado 1_Click()

Dim i significa único, j significa único simple

i = 0.5

j = Arccos(i)

Imprimir I,j,j/pi * 180

i = -0.5

j = Arccos(i)

Imprimir I,j,j/pi * 180

i = 0

j = Arccos(i)

Imprimir I, j, j/pi * 180

Conector final

Función privada Arccos(ByVal x es Single) es Single

Si x = 0, entonces

Arccos = 3.1415926 / 2

Otros

Arccos = Atn(Sqr(1 - x ^ 2 ) / x)

Si Arccos lt0 entonces ' ***NOTA

Arccos = Arccos 3.1415926

Terminará si...

Finalizar función