随着现在生活节奏的日益加快，我们每天真正用在运动上的时间越来越少了，为了让公众大致知道自己的健康与否，国际上通常用BMI值来做为一个用于公众健康研究的统计工具。
今天我们就一起来看一下，如何用VB编程根据计算公式来实现BMI值的计算。
BMI指数定义
BMI指数（身体质量指数，简称体质指数bmi计算公式，又称体重指数）是：用体重公斤数除以身高米数平方得出的数字；是国际上常用的衡量人体胖瘦程度以及是否健康的一个标准。
成人的BMI数值
过轻：低于18.5
正常：18.5-23.9
过重：24-27
肥胖：28-32
非常肥胖, 高于32
由于存在误差，所以BMI只能作为评估
个人体重和健康状况的多项标准之一。
程序实现
本程序我们可以通过文本框来分别输入身高和体重，然后根据公式计算出相应的BMI指数。
由于体重和身高数值都可以带小数，根据现实生活中的实际情况，我们一般都是取两位小数，因此最好将变量定义为Double类型。
代码实现
Private Sub Command1_Click() ‘计算BMI值
Dim sg As Double ‘身高
Dim tz As Double ‘体重
Dim jg As Double ‘结果
sg = Val(Text1)
tz = Val(Text2)
jg = tz / (sg ^ 2)
Select Case jg
Case Is < 18.5
Label3.Caption = “您的BMI值结果为：” & Format(jg, “00.00”) & vbCrLf & “过轻，请合理添加膳食，补充营养！”
Case 18.5 To 23.9
Label3.Caption = “您的BMI值结果为：” & Format(jg, “00.00”) & vbCrLf & “正常，请注意保持！”
Case 24 To 27
Label3.Caption = “您的BMI值结果为：” & Format(jg, “00.00”) & vbCrLf & “重了，请注意！”
Case 28 To 32
Label3.Caption = “您的BMI值结果为：” & Format(jg, “00.00”) & vbCrLf & “胖了bmi计算公式，请多加运动，保持身体健康！”
Case Is > 32
Label3.Caption = “您的BMI值结果为：” & Format(jg, “00.00”) & vbCrLf & “喝水都胖，我也很无奈~”
End Select
End Sub
实际运行图
标准
超重
过轻
长按上图，关注跟我学VB公众平台
更多VB干货内容，尽在跟我学VB
限 时 特 惠： 本站每日持续更新海量各大内部创业教程，一年会员只需98元，全站资源免费下载 点击查看详情
站 长 微 信： muyang-0410
