c语言程序计算bmi指数,计算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

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

02分享举报