' 距離と仰角から、正接関数（Tan）を用いて高さを計算する。
Pi = 3.1415926535897932
Dim DataArray
param = inputbox("距離（ｍ）と仰角（度）とから、" & vbCR & "高さ（ｍ）を求めます。" & vbCR & vbCR _
	& "距離（ｍ）,仰角（度）")
If Param <> "" Then
	DataArray=Split(param,",",-1,1)
	msgbox("距離" & DataArray(0) & "ｍ " & "仰角" & DataArray(1) & "度のときの高さ" & vbCr _
	 & "＝" & DataArray(0)*Tan(DataArray(1)*Pi/180) & "ｍ")
Else msgbox("何も選択されませんでした。終了します。")
End If