大家好，前期我通过视频展示的形式做了个胎儿体重计算器，基本可以根据医院产检的参数初步预测胎儿在妈妈肚子里的成长情况，以便宝妈们可以有效调理自己的身体状况。基于这些原因，我设计了这个胎儿体重计算器。对于7个月的胎儿大多数办公的女性朋友或者男性朋友，都可以用这个办公技术实现自己今后的未出生的宝宝的体重进行预测哦！
好了，废话也不多说啦，我们直接看看如何设计的吧？
一、打开PPT环境，插入一个通常的孕期内胎儿的参数指标7个月的胎儿表截图和插入一个圆角矩形图形，并且修饰。如下图所示
图1 PPT内插入的对象
二、点击开发工具，进入VBA后台
(一)插入一个窗体，并且设置其名称和标题。如下图所示
图2 VBA后台插入的窗体
(二)在上面的窗7个月的胎儿体上插入必要的文本框、命令按钮和提示的标签，并设置它们的属性参数。如下图所示
图3 窗体上插入的文本框、按钮和标签及其属性
三、胎儿体重计算器的功能代码编写设计
(一)上面的VBA窗体代码编写如下：
Priv7个月的胎儿ate Sub
Fetus_Heavy_Calc_Btn_Click() 胎儿体重计算胎儿体重计算公式：1.07*BDP*BDP*BDP+0.3*AC*AC*FL
其中 BDP代表双顶径，AC代表腹围，F7个月的胎儿L代表股骨长 单位：毫米mm
计算结果将是毫克，如果要换算为克的话，必须除以1000(1克=1000毫克，1斤=500克)
If IsNumeric(BDP.Value) And IsNumeric(AC7个月的胎儿.Value) And IsNumeric(FL.Value) Then
BDP_3 = (Val(BDP.Value)) ^ 3 BDP_3代表双顶径除以10的立方
AC_2_FL = (Val(AC.7个月的胎儿Value)) ^ 2 * Val(FL.Value) AC_2_FL代表腹围除以10的立方再乘除以10后的股骨长
wgt.Caption = Round((1.07 * BDP_3 + 0.3 * A7个月的胎儿C_2_FL) / 1000 / 500, 2) 换算成为单位：斤
Else
MsgBox "您输入的胎儿体重计算的参数非法！重输！", vbInformation, "提示"
BDP.Value = ""7个月的胎儿
AC.Value = ""
FL.Value = ""
wgt.Caption = ""
BDP.SetFocus
End If
End Sub
Private Sub ResetBtn_Click()
BDP.V7个月的胎儿alue = ""
AC.Value = ""
FL.Value = ""
wgt.Caption = ""
BDP.SetFocus
End Sub
Private Sub UserForm_QueryClos7个月的胎儿e(Cancel As Integer, CloseMode As Integer)
Cancel = False
MsgBox "您取消了计算胎儿体重的操作" & Chr(10) & "或点了<X>关闭7个月的胎儿了计算窗体！", vbInformation, "提示"
End Sub
(二)VBA后台的模块1里面的代码编写如下：
Sub Start_Calc_Fetus_Heavy() 开始胎儿体重计算
yn = M7个月的胎儿sgBox("输入前，您确定参考过表中标准参数吗？", vbQuestion + vbYesNo, "提醒")
If yn = vbYes Then
Fetus_Heavy_Calc.Show
Else
Ms7个月的胎儿gBox "参考下表中标准数据，再填数据吧！", vbInformation, "提示"
End If
End Sub
四、胎儿体重计算器的运行测试
(一)按<F5>开始PPT幻灯片放映。如下图所示
图4 启动7个月的胎儿PPT放映
(二)点击上面反映状态幻灯片上面的图形按钮<计算胎儿体重>，将出现温馨提示“输入前，您确定参考过表中标准参数吗？”。如下图所示
图5 提示是否参考过右表胎儿不同孕期的蚕食指标
(三)在上面界面的7个月的胎儿基础上如果点击<是>按钮，则弹出胎儿体重计算器的真实窗体。如下图
图6 确认看过参数指标后弹出的胎儿体重计算器窗体
(四)在体重计算器窗体输入错误的参数，会出现错误提示。如下图所示
图7 输入错误参数的提示7个月的胎儿
(五)结束错误参数后输入正确的参数，进行胎儿体重计算将在体重栏中显示的正确结果。如下图所示
图8 正确参数的显示结果
五、胎儿体重计算器设计过程中设计的重要数学公式
(一)在VBA中求n次方公式：y=x^n7个月的胎儿 代表的是将变量x的n次方传递给y变量，如本案例中双顶径BDP的立方可以写成BDP^3。
(二)设计胎儿体重计算的关键公式：1.07*BDP*BDP*BDP+0.3*AC*AC*FL 其中1.07和3是7个月的胎儿系数，如果参数双顶径BDP和腹围AC、股骨长FL单位为毫米mm，则计算的结果将是毫克
(三)单位换算公式：1克=1000毫克，1斤=500克 用这些换算公式可以计算出胎儿在不同孕期内的预测体重
好了，本期7个月的胎儿的胎儿体重计算器的设计就分享到这里吧，感谢各位粉丝的多多关注（头条号：跟我学office高级办公）、推广和点评哦！也欢迎各位留意我下棋即将出的作品哦！
