计算BMI的程序怎么写

你的公式不对a/（b*2），我帮你改成a/（b*1.6），看起来差不多，实际公式是a=b-1.05是标准身材。 Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single

a = Val(Text1)

b = Val(Text2)

c = Round(a / (b * 1.6))

Label6.Caption = c

If Option1.Value Then

If c <20 Then

Label8.Caption = "过轻"

ElseIf c <25 Then

Label8.Caption = "适中"空迅

ElseIf c <30 Then

Label8.Caption = "过重"

ElseIf c <35 Then

Label8.Caption = "肥胖"

ElseIf c >= 35 Then

Label8.Caption = "非常肥胖"

End If

Else

If c <19 Then

Label8.Caption = "过轻"

ElseIf c <24 Then

Label8.Caption = "适中"

ElseIf c <29 Then

Label8.Caption = "过重"

ElseIf c <34 Then

Label8.Caption = "肥胖"

ElseIf c >= 34 Then

Label8.Caption = "非常肥燃察胖"

End If

End If

End Sub

性别分层斗段此随机抽样，则组成此参赛队的概率为

体脂肪健康指数。(

)BMI是BodyMassIndex的缩写，是以你的身高体重计算出来的。由于BMI计算的是身体脂肪的比例，所以在测量身体因超重而面临心脏病、高血压等风险上，比单纯的以体重来认定，更具准确性。

特别注意_！不是每个人都适用BMI的，如果你是∶1.未满18岁；2.是运动员；3.正在做重量训练；4.怀孕或哺乳中；5.身体虚弱或久坐不动的老人，那么BMI的指数对你不适毕竖用。如果你认为BMI算手游大出来的结果不正确，请带着结果与你的医师讨论，并要求做体脂肪测试。

目前世界公认的一种评定肥胖程度的分级方法为“体质指数磨枣法”（BMI）。具体计算方法是以体重的千克数除以身高平方（米为单位）、其公式为：体质指数(BMI)=体重（千克）/身高（米）_，例如，一个人的身高为1.75米,体重为68千克,他的BMI=68/(1.75)_=22.2(千克/米_.当此指数为18.5～24.9时属正常。

---