Cos

---

構文

Cos(number)

引数numberには、任意の数式を指定します。（単位はラジアン）

解説

Cos関数は、引数として角度を受け取り、その角度をはさむ直角三角形の２辺の比を返します。

戻り値は-１から１の間です。

サンプル

次の例は、Cos関数を使ってコサインを計算します。

Sub Sample()
    Dim a As Integer, b As Double, pi As Double
    a = InputBox("角度を入力してください")
    pi = 4 * Atn(1)
    b = a * (pi / 180)
    MsgBox Cos(b)       'コサインを返します
End Sub