例: Cos function

Dim degrees As Integer
Dim rad As Double
' Convert the angle 45 degrees to radians.
degrees% = 45
rad# = degrees% * (PI / 180)
' Print the cosine of that angle.
Print Cos(rad#)                ' Prints .707106781186548