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