大家好，前期我通过视频展示的形式做了个胎儿体重计算器，基本可以根据医院产检的参数初步预测胎儿在妈妈肚子里的成长情况，以便宝妈们可以有效调理自己的身体状况。基于这些原因，我设计了这个胎儿体重计算器。对于大多数办公的女性朋友或者男性朋友，都可以用这个办公技术实现自己今后的未出生的宝宝的体重进行预测哦！
好了，废话也不多说啦，我们直接看看如何设计的吧？
一、打开PPT环境，插入一个通常的孕期内胎儿的参数指标表截图和插入一个圆角矩形图形，并且修饰。如下图所示
图1 PPT内插入的对象
二、点击开发工具，进入VBA后台
(一)插入一个窗体，并且设置其名称和标题。如下图所示
图2 VBA后台插入的窗体
(二)在上面的窗体上插入必要的文本框、命令按钮和提示的标签，并设置它们的属性参数。如下图所示
图3 窗体上插入的文本框、按钮和标签及其属性
三、胎儿体重计算器的功能代码编写设计
(一)上面的VBA窗体代码编写如下：
Private Sub Fetus_Heavy_Calc_Btn_Click() '胎儿体重计算
'胎儿体重计算公式：1.07*BDP*BDP*BDP 0.3*AC*AC*FL
'其中 BDP代表双顶径，AC代表腹围，FL代表股骨长 单位：毫米mm
'计算结果将是毫克，如果要换算为克的话，必须除以1000(1克=1000毫克，1斤=500克)
If IsNumeric(BDP.Value) And IsNumeric(AC.Value) And IsNumeric(FL.Value) Then
BDP_3 = (Val(BDP.Value)) ^ 3 ' BDP_3代表双顶径除以10的立方
AC_2_FL = (Val(AC.Value)) ^ 2 * Val(FL.Value) 'AC_2_FL代表腹围除以10的立方再乘除以10后的股骨长
wgt.Caption = Round((1.07 * BDP_3 0.3 * AC_2_FL) / 1000 / 500, 2) '换算成为单位：斤
Else
MsgBox "您输入的胎儿体重计算的参数非法！重输！", vbInformation, "提示"
BDP.Value = ""
AC.Value = ""
FL.Value = ""
wgt.Caption = ""
BDP.SetFocus
End If
End Sub
Private Sub ResetBtn_Click()
BDP.Value = ""
AC.Value = ""
FL.Value = ""
wgt.Caption = ""
BDP.SetFocus
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = False
MsgBox "您取消了计算胎儿体重的操作" & Chr(10) & "或点了<X>关闭了计算窗体！", vbInformation, "提示"
End Sub
(二)VBA后台的模块1里面的代码编写如下：
Sub Start_Calc_Fetus_Heavy() '开始胎儿体重计算
yn = MsgBox("输入前，您确定参考过表中标准参数吗？", vbQuestion vbYesNo, "提醒")
If yn = vbYes Then
Fetus_Heavy_Calc.Show
Else
MsgBox "参考下表中标准数据，再填数据吧！", vbInformation, "提示"
End If
End Sub
四、胎儿体重计算器的运行测试
(一)按<F5>开始PPT幻灯片放映。如下图所示
