'　３種の温度単位での表現　（変換式は要確認）
' C=5(F-32)/9
Dim tempe,unit
Dim atai,sessi,kasi,zettai
tempe=inputbox("温度変換：入力規約" & vbCr _
 & "温度＋記号" & vbCR & "記号：c=摂氏　f=華氏　k=絶対温度" & vbCr _
 & "例：摂氏２３．４度　→23.4c")
If tempe<> "" Then
	atai=CSng(Left(tempe,Len(tempe)-1)) 'CSngは、式を単精度浮動小数点型に変換する。
	unit=Right(tempe,1)
	If (unit ="C" Or unit="c") Then
		sessi=atai
		kasi=((9*atai)/5)+32
		zettai=atai + 273.15
	ElseIf (unit="F" Or unit="f") Then
		sessi=5*(atai-32)/9
		kasi=atai
		zettai=atai + 273.15
	ElseIf (unit="K" Or unit="k") Then
		sessi=atai -273.15
		kasi=((9*(atai-273.15))/5)+32
		zettai=atai 
	End If
	Msgbox("摂氏：" & Formatnumber(sessi,2) & "°Ｃ" & vbCR _
		& "華氏：" & Formatnumber(kasi,2) & "°Ｆ" & vbCR _
		& "絶対温度：" & Formatnumber(zettai,2) & "°Ｋ")
Else Msgbox("何も選択されませんでした。終了します。")
End If