计算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指数（即身体质量指数，简称体质指数又称体重，英文为Body Mass Index，简称BMI），是用体重公斤数除以身高米数平方得出的数字，是目前国际上常用的衡量人体胖瘦程度以及是否健康的一个标准。主要用于统计用途，当我们需要比较及分析一个人的体重对于不同高度的人所带来的健康影响时，BMI值是一个中立而可靠的指标。

BMI值原来的设计是一个用于公众健康研究的统计工具。当我们需要知道肥胖是否对某一疾病的致病原因时，我们可以把病人的身高及体重换算成BMI值，再找出其数值及病发率是否有线性关联。不过，随着科技进步，现时BMI值只是一个参考值。要真正量度病人是否肥胖，还需要利用微电力量度病人的阻抗，以推断病者的脂肪厚度。因此，BMI的角色也慢慢改变，从医学上的用途，变为一般大众的纤体指标。

#include<stdio.h>

int main()

{float h,w,bmi

 scanf("%f%f",&w,&h)

 bmi=w/(h*h)

 printf("BMI=%.1f ",bmi)

 if(bmi<18.5)printf("消瘦\n")

   else if(bmi<25)printf("正常\n")

     else if(bmi<30)printf("超重\n")

       else printf("肥胖\n")

 return 0

}

---