例: ACos function

Dim rad As Double
Dim degrees As Double
' Assign the value PI/2, the angle whose cosine is 0.
rad# = ACos(0)
' Assign the value 90, the same angle in degrees.
degrees# = rad# * (180 / PI)
Print rad#; degrees#           ' Prints 1.5707963267949  90