Kan man tage sinus^-1(x) i VB

To forskellige løsninger:

Function myarcsin(v As Double) As Double
  Dim xn As Double
  Dim xnplus1 As Double
  xn = 0
  For i = 1 To 25
      xnplus1 = xn - (Sin(xn) - v) / Cos(xn)
      xn = xnplus1
  Next i
  arcsin = xn
End Function

Function msarcsin(v As Double)
  msarcsin = Atn(v / Sqr(1 - v * v))
End Function

msarcsin er den af Microsoft foreslåede løsning.

myarcsin er en simpel newtons metode iteration.

Og det andet forslag (som jeg kom for sent med) er en af de velkendte trigonometriske formler.
Tilsvarende er Acos(X)=Atn(sqr(1-x*x)/x)  (for x>0 og x<=1)

i Schaums formelsamling står i øvrigt ALLE trigonomiske funktioner og omskrivninger. Så fat i den næsten gang du vil udregne hyperbolsk sinus i potens 3,47.
Har man de almindelige funktioner (sinus osv.), kan de komplicerede formler ofte omskrives til kun at afhænge af de simple...