[余弦，正弦，正接を計算する]

余弦，正弦，正接の計算です。
関数が用意されているので、特に問題ないと思います。

【ソースコード】

[tips0018.vbs]
Option Explicit

Dim dblDeg2Rad  ' 度→ラジアン変換用
dblDeg2Rad = 4 * Atn(1) / 180

' 余弦
WScript.Echo "cos60°= " & Cos(dblDeg2Rad * 60)

' 正弦
WScript.Echo "sin60°= " & Sin(dblDeg2Rad * 60)

' 正接
WScript.Echo "tan60°= " & Tan(dblDeg2Rad * 60)

【実行結果】

C:\> cscript //NoLogo tips0018.vbs
cos60°= 0.5
sin60°= 0.866025403784439
tan60°= 1.73205080756888