Cos

应用示例

'!TITLE "计算余弦"
' 计算0度的余弦
Sub Sample_Cos

  Dim aaa As Integer

  ’ 在aaa中代入0度的余弦值
  aaa = Cos( 0 )

  ' 在讯息输出视窗中显示"1"
  PrintDbg aaa

End Sub