Tan関数

構文
Tan(num)
引数numには、任意の数式を指定します。（単位はラジアン）

解説
Tan関数は、引数として角度を受け取り、直角三角形の２辺の比を返します。Tan関数の返す２辺の比は、指定した角の反対側の辺の長さを、もう一方の辺の長さで割った値です。

サンプル
次の例は、Sin関数を使ってタンジェントを計算します。

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