例: ATn function

Dim rad As Double
Dim degrees As Double
' Assign the value pi/4, the angle whose tangent is 1.
rad# = ATn(1)
' Assign the value 45, the same angle in degrees.
degrees# = rad# * (180 / pi)

Print rad#; degrees#         ' Prints .785398163397449  45