' 角（度）の正接（Tan）を計算する。
Pi = 3.1415926535897932
param = inputbox("Answer=Tan(X) X:度" & vbCR &_
	" X= ")
If Param <> "" Then
	msgbox("Tan(" & param & ")=" & Tan(param*Pi/180))
Else msgbox("何も選択されませんでした。終了します。")
End If