Cos( rad )
Returns the cosine of an angle.
The argument rad must be expressed in radians and must be a valid numeric expression. Cos will by default return a double unless a single or integer is specified as the return value.
Example:
Sub Main()
Dim J As Double
Dim I As Single ' Declare variables.
Dim K As Integer
For I =1 To 10
Msg = Msg & Cos(I) & ", " ' Cos function call
J=Cos(I)
Print J
K=Cos(I)
Print K
Next I
MsgBox Msg ' Display results.
MsgBox Msg1
End Sub
Related Topics: