VB编程开发的BMI指数计算程序

Posted 2021-04-24 跟我学VB

随着现在生活节奏的日益加快，我们每天真正用在运动上的时间越来越少了，为了让公众大致知道自己的健康与否，国际上通常用BMI值来做为一个用于公众健康研究的统计工具。

今天我们就一起来看一下，如何用VB编程根据计算公式来实现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 & "胖了，请多加运动，保持身体健康！"

Case Is > 32

Label3.Caption = "您的BMI值结果为：" & Format(jg, "00.00") & vbCrLf & "喝水都胖，我也很无奈~"

End Select

End Sub

实际运行图

标准

   超重

  过轻

为了帮助VB基础薄弱或者VB零基础想快速掌握VB编程的朋友，充分利用好冬季有限的时间，2018年冬季视频直播现已正式开启了，针对VB基础薄弱或者零基础的朋友有专门的基础讲解课程；对已有VB编程基础想综合提高编程开发能力的朋友有综合讲解课程及串口通信与数据库开发课程可供选择学习。

VB视频指导包含的内容

1、所有的VB视频都是亲自讲解，每节视频都会结合实际程序，程序代码均会一句一句详细讲解；

2、学习没有时间限制；

3、老师随时指导；

4、学习即可获得各种编程学习资料和开发工具。

跟我学VB

2018年11月中旬

学习优惠活动

1、VB从入门到综合视频直播学习进行中，本课程由数年VB开发经验老师亲自讲解，学习问题随时指导，能够让你短时间内掌握VB编程；

2、VB全套学习资料网盘版，内容包括亲自讲解的视频、课件教程、编程实例大全（含源代码工程文件）、学习总结资料、各种编程开发工具现在优惠发放中；

3、2018年12月份及2019年3月全国计算机二级考试指导进行中，找对方法、方能在有限的时间内一次顺利通过考试；

4、凡现在报名学习的朋友均送全套网盘学习资料一份！

---

---

长按上图，关注跟我学VB公众平台

更多VB精彩内容，尽在VB学习