Page 73 -

第四章 程式的流程控制

(二)輸入體重(KG)及身高(CM)，換轉成BMI(身體質量指數)值，其中BMI的計算為：
BMI=體重(公斤)／身高 2 (公尺)2
寫一程式來判斷 BMI 值的健康狀況(BMI 值小於 18 為體重過輕，18 至 25 間為正常
範圍，25 以上為體重過重)。
本題同樣用 InputBox 來協助輸入資料，MsgBox 來輸出資料，程式碼及執行結果如
下：
程式碼

Dim height, weight, bmi As Single
height = InputBox("請輸入你的身高(單位公分)", "計算BMI值")
weight = InputBox("請輸入你的體重(單位公斤)", "計算BMI值")
bmi = weight / (height / 100) ^ 2
If bmi < 18 Then

MsgBox("你的bmi值=" & bmi & "，結果過輕", vbOKOnly, "輸出結果")
ElseIf bmi < 25 Then

MsgBox("你的bmi值=" & bmi & "，結果正常", vbOKOnly, "輸出結果")
Else

MsgBox("你的bmi值=" & bmi & "，結果過重", vbOKOnly, "輸出結果")
End If

執行結果

69