可以测身体各项指数的软件

体检宝直接用手机测量用户的血压、心率、视力、听力、肺活量、心理指数、色盲等身体数据，并提供有针对性的可交互的健康方案。

体检宝是一款采集、管理、分析用户健康数念者据的APP。采用国际顶级原理，通过手机自身硬件采集光电容积脉搏波数据，帮助用户计算心率、血压、仔厅薯血氧、血液粘稠度等身体特征参数。

手机测量，简单易 *** 作，一键到位，帮助用户节约时间成本、就医成本；数据可靠性强，通过PPG特征得出数据，误差范围较小，帮助用户智能解析近期健康伏森趋势和健康风险，并提出解决方案；个性化服务，定制化解决方案，帮助存在健康隐患的用户接入第三方服务。

1、搜索出【测体温】小程序后，点击进入。

2、进入到【测体温】小程序界面后，点击开始记录。

3、点击开始记录后，把体温温度对型茄空症在刻度线上，然后点击确认。

4、确认以后，点击开始【健康自检】。

5、点击【健康自检】后，按照上面的提示 *** 作，结合你的病症情况选择【是】或【否】。6、根据你的选择选项，【测体温】小程序，就会对症显示出病症存在的状况，以及相关的注意事项等。

小程序是一种不纳茄需要下载安装即可使用的应用，它实现了应用“触手卜瞎可及”的梦想，用户扫一扫或者搜一下即可打开应用。也体现了“用完即走”的理念，用户不用关心是否安装太多应用的问题。应用将无处不在，随时可用，但又无需安装卸载。

Private Sub Form_Click()

Dim w!, h!, f!

w = Val(InputBox("请输入雀冲体升塌重千克数"))

h = Val(InputBox("请输入身高米数"))

f = w / (h * h)

If f <18.5 Then

Print "偏瘦！"

ElseIf f >= 18.5 And f <24.9 Then

Print "正常。"吵岁圆

ElseIf f >= 25 And f <= 30 Then

Print "偏胖。"

Else

Print "极胖！"

End If

End Sub

---