例: ATn2 function

Dim quad1 As Double, quad2 As Double, _
   quad3 As Double, quad4 As Double

' Assign the arctangents of four points in the plane.
quad1# = ATn2(1, 1)
quad2# = ATn2(-1, 1)
quad3# = ATn2(-1, -1)
quad4# = ATn2(1, -1)
' Print the value each angle in degrees.
Print quad1# * (180 / pi)              ' Prints 45
Print quad2# * (180 / pi)              ' Prints 135
Print quad3# * (180 / pi)              ' Prints -135
Print quad4# * (180 / pi)              ' Prints -45