' BMI(Body Mass Index)を計算する。
param1 = inputbox("身長と体重をお聞きします。" & vbCRLF & "まずは体重を入力してください。" & vbCRLF & " 体重(kg)=")
param2 = inputbox("身長と体重をお聞きします。" & vbCRLF & "次に身長を入力してください。" & vbCRLF & " 身長(cm)=")
If param1 <> ""  and param2 <>""  Then
	bmi=Round(param1/(0.01*param2*0.01*param2),1)
	sw=Round(22*0.01*param2*0.01*param2,1)
	If bmi>=26.4 Then 
		MsgBox("あなたは肥満です。健康のためダイエットしましょう。" & vbCRLF & _ 
		"あなたの標準体重は、" & sw & "Kgです。")
	ElseIf bmi >=22 and bmi<26.4 Then
		MsgBox("肥満に近いです。注意しましょう。" & vbCRLF & _ 
		"あなたの標準体重は、" & sw & "Kgです。")
	ElseIf bmi<22 Then
		MsgBox("肥満ではありません。現状を維持してください。" & vbCRLF & _ 
		"あなたの標準体重は、" & sw & "Kgです。")
	End If
Else msgbox("何も選択されませんでした。終了します。")
End If