胎儿体重计算器app(妙用VBA技术进行胎儿体重计算器的设计)

今天给各位分享胎儿体重计算器app的知识，其中也会对妙用VBA技术进行胎儿体重计算器的设计进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

大家好，前期我通过视频展示的形式做了个胎儿体重计算器，基本可以根据医院产检的参数初步预测胎儿在妈妈肚子里的成长情况，以便宝妈们可以有效调理自己的身体状况。基于这些原因，我设计了这个胎儿体重计算器。对于大多数办公的女性朋友或者男性朋友，都可以用这个办公技术实现自己今后的未出生的宝宝的体重进行预测哦！

好了，废话也不多说啦，我们直接看看如何设计的吧？

一、打开PPT环境，插入一个通常的孕期内胎儿的参数指标表截图和插入一个圆角矩形图形，并且修饰。如下图所示

(一)插入一个窗体，并且设置其名称和标题。如下图所示

(二)在上面的窗体上插入必要的文本框、命令按钮和提示的标签，并设置它们的属性参数。如下图所示

图3窗体上插入的文本框、按钮和标签及其属性

三、胎儿体重计算器的功能代码编写设计

(一)上面的VBA窗体代码编写如下：

PrivateSubFetus_Heavy_Calc_Btn_Click()'胎儿体重计算

'胎儿体重计算公式：1.07*BDP*BDP*BDP+0.3*AC*AC*FL

'其中BDP代表双顶径，AC代表腹围，FL代表股骨长单位：毫米mm

'计算结果将是毫克，如果要换算为克的话，必须除以1000(1克=1000毫克，1斤=500克)

IfIsNumeric(BDP.Value)AndIsNumeric(AC.Value)AndIsNumeric(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)'换算成为单位：斤

MsgBox"您输入的胎儿体重计算的参数非法！重输！",vbInformation,"提示"

PrivateSubUserForm_QueryClose(CancelAsInteger,CloseModeAsInteger)

MsgBox"您取消了计算胎儿体重的操作"&Chr(10)&"或点了<X>关闭了计算窗体！",vbInformation,"提示"

(二)VBA后台的模块1里面的代码编写如下：

SubStart_Calc_Fetus_Heavy()'开始胎儿体重计算

yn=MsgBox("输入前，您确定参考过表中标准参数吗？",vbQuestion+vbYesNo,"提醒")

MsgBox"参考下表中标准数据，再填数据吧！",vbInformation,"提示"

(一)按<F5>开始PPT幻灯片放映。如下图所示

(二)点击上面反映状态幻灯片上面的图形按钮<计算胎儿体重>，将出现温馨提示“输入前，您确定参考过表中标准参数吗？”。如下图所示

图5提示是否参考过右表胎儿不同孕期的蚕食指标

(三)在上面界面的基础上如果点击<是>按钮，则弹出胎儿体重计算器的真实窗体。如下图

图6确认看过参数指标后弹出的胎儿体重计算器窗体

(四)在体重计算器窗体输入错误的参数，会出现错误提示。如下图所示

(五)结束错误参数后输入正确的参数，进行胎儿体重计算将在体重栏中显示的正确结果。如下图所示

五、胎儿体重计算器设计过程中设计的重要数学公式

(一)在VBA中求n次方公式：y=x^n代表的是将变量x的n次方传递给y变量，如本案例中双顶径BDP的立方可以写成BDP^3。

(二)设计胎儿体重计算的关键公式：1.07*BDP*BDP*BDP+0.3*AC*AC*FL其中1.07和3是系数，如果参数双顶径BDP和腹围AC、股骨长FL单位为毫米mm，则计算的结果将是毫克

(三)单位换算公式：1克=1000毫克，1斤=500克用这些换算公式可以计算出胎儿在不同孕期内的预测体重

好了，本期的胎儿体重计算器的设计就分享到这里吧，感谢各位粉丝的多多关注（头条号：跟我学office高级办公）、推广和点评哦！也欢迎各位留意我下棋即将出的作品哦！

好了，关于胎儿体重计算器app和妙用VBA技术进行胎儿体重计算器的设计的问题到这里结束啦，希望可以解决您的问题哈！