VB小程序，BMI指数计算
VB小程序，关注我有更多的有趣的VB小程序
实现功能：输入体重和身高就能计算出体重过重还是过轻还是刚刚好
实现方法：BMI指数=体重/身高的平方
控件：五个Label标签、两个TextBox文本框、一个Command命令按钮
界面：
代码：
Private Sub Command1_Click()
Dim h, m, bmi As Single
Dim x As String
m = Val(Text1.Text)
h = Val(Text2.Text)
bmi = m / (h * h)
If bmi < 18.5 Then
x = \"体重过轻！平时要注意营养哦！\"
ElseIf bmi >= 18.5 And bmi <= 25 Then
x = \"体重正常，坚持运动！\"
Else
x = \"体重过重！少吃多运动\"
End If
Label5.Caption = x
End Sub
想得到更多的VB小程序，请关注我，点击下方的广告可以更好的支持我哦！
家有“小胖墩”，试试用这些方式帮孩子恢复健康体重
家有“小胖墩”，可要当心孩子是否有肥胖的可能。肥胖不仅是一种疾病，而且还会威胁到成年后的健康状况，若患有肥胖，我们要尽快帮孩子恢复到健康体重。
肥胖可分为单纯性肥胖及病理性肥胖，其中单纯性肥胖与生活方式密切相关。因此，从生活方式入手是最好的减肥方式~
01
儿童肥胖有哪些表现？
单纯性肥胖儿童早期一般身材较高大、食欲大、进食量大。随着肥胖逐渐加重，儿童会变得不喜活动，稍微运动就气喘吁吁。
严重肥胖儿童腹部、臀部外侧及大腿部皮肤可出现紫色条纹，头颈部、腋下、腹股沟等处皮肤可发黑变粗，用肥皂等也不能擦洗干净，又称黑棘皮。
02
如何判断儿童是否肥胖？
体质指数（BMI）是国际社会推荐的评价儿童（≥2岁）超重和肥胖的首选指标。BMI的计算方法是体重（单位：kg）除以身高的平方（单位：m）。我国2～18岁儿童青少年超重和肥胖筛查BMI界限值如下表：
03
怎么有效防控儿童肥胖？
肥胖治疗原则是减少能量摄入和增加能量消耗，使体脂减少并接近正常状态，同时又不影响儿童身体健康和生长发育。儿童处于生长发育的关键期，饮食调整和增加运动是控制儿童体重的主要方式。
饮食调整
给孩子减肥可以试试交通灯饮食干预模式：依据能量密度对食物进行分类：即低热量食物贴上绿色标签，提示可以自由摄入；中等热量的食物贴上黄色标签，提示需要谨慎摄入；高热量食物贴上红色标签，提示应该尽量少吃。
增加运动
儿童在运动项目上宜多选择运动强度不大的项目，且持续时间不宜过长，如慢跑、球类项目、游泳、骑自行车、走跑结合等，切忌进行长距离游泳、负重、中长跑等形式，避免对儿童身体造成运动损伤。
儿童在进行日常身体活动时，应该尽量做到强度和形式的多样化，注意运动姿势的正确性，以及不同强度活动之间的过渡。运动前应做好准备工作，避免空腹运动和饭后1小时内运动，运动过程中和运动后应注意补充水分。家长应根据儿童喜好和身体情况，选择适合孩子的身体活动，且不能过分追求运动强度和时间，以免运动损伤。
转自：健康报
来源： 全民健康生活方式行动
