例: Tan function

' Convert the angle of 45 degrees to radians, then
' compute and print the tangent of that angle.
Dim degrees As Double, radians As Double
degrees# = 45
radians# = degrees# * (PI / 180)
Print Tan(radians#)    ' Prints 1