【試題編號】11900-940304
【題目】體質指數BMI
【說明】
體質指數 BMI（Body Mass Index）是常用在評估人體肥胖程度的一種指標，其
計算公式為體重除以身高的平方：
BMI = 體重(公斤)/(身高× 身高)(公尺2)
Private Sub Form_Activate()
Dim bmi As Integer, bmi2 As Integer 定義bmi和bmi2為整數
Open App.Path & "\940304.sm " For Input As #4 開啟資料檔
Input #4, e, f 讀出三組資料檔
bmi = f / ((e / 100) ^ 2) 計算bmi的值
Input #4, e, f 再讀一次
bmi2 = f / ((e / 100) ^ 2) 計算bmi2的值
If bmi > bmi2 Then bmi = bmi2 和bmi相比較，若小於bmi，bmi則變為bmi2
Input #4, e, f 還是再讀吧XD
bmi2 = f / ((e / 100) ^ 2) 再次計算bmi2的值
If bmi > bmi2 Then bmi = bmi2 和bmi相比較，若小於bmi，bmi則變為bmi2
(反覆的計算是為了要找到最小的bmi值)
If bmi > 20 And bmi < 25 Then 若計算完最後的bmi>20和<25
Print "第四題結果：最小BMI值="; bmi & "，正常" 列印結果為正常
Else
Print "第四題結果：最小BMI值="; bmi & "，不正常" 反之為不正常
End If
For i = 1 To 0 迴圈執行一次
Next i
Close #4 關閉檔案
End Sub
列印結果:(最小為不正常)
列印結果:(最小為正常)
留言列表
