Cos Function

計算一個角度的餘弦值，角度以弧度為單位定義，結果在 -1 到 1 之間。

以 Alpha 角為例，在直角三角形中 Cos 函式計算 Alpha 的鄰邊與斜邊長度之比。

Cos(Alpha) = 鄰邊/斜邊

語法：

Cos (Number)

傳回值類型：

Double

參數：

Number：數值型表示式，用於指定要計算餘弦值的角度 (以弧度為單位)。

若要將度轉換成弧度，可將度乘以 pi/180；若要將弧度轉換成度，則將弧度乘以 180/pi。

度 = (弧度*180) /pi

弧度 = (度*pi)/180

其中，PI 是固定的圓周率常數，捨入後的值為 3.14159...

錯誤代碼：

5 無效的程序呼叫

示例：

REM 以下示例以直角三角形為例，要求輸入

REM 依據鄰邊和角度 (以度為單位)，並計算三角形斜邊的長度：

Sub ExampleCosinus

REM 捨入後的 PI = 3.14159

Dim d1 As Double, dAngle As Double

    d1 = InputBox$ (""Enter the length of the adjacent side:","Adjacent")

    dAngle = InputBox("Enter the angle Alpha (in degrees):","Alpha")

    Print "The length of the hypothenuse is"; (d1 / cos (dAngle * Pi / 180))

End Sub