综合实验报告修改后.docx

综合实验报告修改后.docx

《综合实验报告修改后.docx》由会员分享，可在线阅读，更多相关《综合实验报告修改后.docx（16页珍藏版）》请在冰豆网上搜索。

综合实验报告修改后

实验十五体脂肪率测试窗体设计综合实验

学号

0092114

姓名

邓艺

同组人

实验项目

体脂肪率测试窗体设计综合实验

实验地点

实验仪器台号

指导教师

实验日期及节次

年月日，第节

一、实验要求

1.实验目的

掌握Access2007启动和退出；

掌握Access2007的用户界面构成；

掌握Access2007数据表等对象及其视图切换。

2.实验准备

（1）登陆毕博教学网站（http:

//210.35.204.159/）；

（2）选择“数据库应用”课程；（3）选择“按周编制的教学安排”后，再选择“第一周”；（4）下载“实验”和“数据库样例”。

3.实验步骤

问题综述：

肥胖症是现代社会威胁人类健康的主要杀手，衡量肥胖症的指标之一是体脂肪率，它是将脂肪含量用其占总体重的百分比的形式表示。

体脂肪率计算公式为：

其中男性性别取值为1，女性取值为0。

一般认为男性体脂>25%，女性>33%是诊断肥胖的标准。

同时男性体脂率<10%，女性体脂率<15%是诊断偏瘦的标准。

试设计一个VBA窗体程序，计算体脂肪率。

要求输出时，给出性别和合理的体脂肪率。

实验要求：

（1）阅读问题，区分问题的输入与输出。

（2）构造体脂肪率界面。

其中在输出中，除输出体脂肪率数值外还要求给出针对性别的健康建议，具体见（5）对应的测试数据。

输出方式可以是文本框，也可以是MsgBox的对话框。

（3）对体脂肪率界面各个控件命名，要求所有控件名后面加入你的姓名

（4）对控件的相关事件编写代码，同样要求程序中的变量名后面加入你的姓名。

（5）输入六个测试数据，具体数据如下：

1）男性，20岁，1.72米，61公斤，求其体脂肪率。

并给出带性别的健康建议信息，例如：

“帅锅，您的体型正常，请保持”。

2）女性，20岁，1.72米，61公斤，求其体脂肪率。

并给出带性别的健康建议信息，例如：

“美女，您的体型正常”。

3）男性，20岁，1.72米，95公斤，求其体脂肪率。

并给出带性别的健康建议信息，例如：

“man，您需要节食”。

4）女性，20岁，1.72米，95公斤，求其体脂肪率。

并给出带性别的健康建议信息，例如：

“Lady，请注意节食”。

5）男性，20岁，1.72米，38公斤，求其体脂肪率。

并给出带性别的健康建议信息，例如：

“老弟，请加强营养”。

6）女性，20岁，1.72米，38公斤，求其体脂肪率。

并给出带性别的健康建议信息，例如：

“妹子，您需要加强营养”。

二、实验过程（步骤、记录、数据和分析）

具体操作步骤如下：

1、构造界面如下：

（窗体设计界面）

2、设置控件名称如表：

界面元素

控件名称

标签“#帅哥美女鉴定器#_（copyrightby邓艺0092114）”

Label0邓艺

标签“您的性别（sex）：

”

Label1邓艺

标签“除去增高鞋垫的身高哦亲（Height）：

”

Text9邓艺

标签“（m）”

Label28邓艺

标签“您的实际体重，拒绝撒谎哦亲（Weight）：

”

Label3邓艺

标签“（kg）”

Label29邓艺

标签“芳龄几何or贵庚（Age）：

”

Label4邓艺

标签“（岁）”

Label30邓艺

标签“测试数据：

”

Label21邓艺

命令按钮“不要激动，开始喽！

（start）”

Command17邓艺

命令按钮“怎么会这样？

重新计算（update）”

Command18邓艺

命令按钮“男A”

Command22邓艺

命令按钮“男B”

Command23邓艺

命令按钮“男C”

Command24邓艺

命令按钮“女A”

Command25邓艺

命令按钮“女B”

Command26邓艺

命令按钮“女C”

Command27邓艺

3、窗体控件属性设置：

（命令按钮属性设置，其他类似）

（标签属性设置）

4、体脂肪率测试窗体代码：

OptionCompareDatabase

PrivateSubCommand17邓艺_Click（）

DimfAsDouble

IfMe.Option2邓艺.Value=FalseAndMe.Option4邓艺.Value=FalseThen

MsgBox（"必须输入您的性别哦"）

ExitSub

EndIf

a=Me.Text15邓艺.Value

Ifa=""Then

MsgBox（"年龄需要被输入"）

ExitSub

EndIf

Ifa<1Then

MsgBox（"1岁以下不参与计算哦，请输入大于一岁的整数"）

ExitSub

EndIf

w=Me.Text邓艺.Value

Ifw=""Then

MsgBox（"体重需要被输入"）

ExitSub

EndIf

Ifw<=0Then

MsgBox（"您确定您没有体重？

请输入大于0的整数"）

ExitSub

EndIf

h=Me.Text9邓艺.Value

Ifh=""Then

MsgBox（"身高需要被输入"）

ExitSub

EndIf

Ifh=0Then

MsgBox（"您确定您没有身高？

请输入大于0的整数"）

ExitSub

EndIf

IfMe.Option2邓艺.Value=TrueThen

x=1

Else

x=0

EndIf

f=（1.2*（w/h^2）+0.23*a-5.4-10.8*x）/100

Ifx=1Then

Iff>0.25Then

MsgBox（"最近又吃多了吧？

=="）

EndIf

Iff<0.1Then

MsgBox（"太瘦了让人看起来很弱哟，多吃点吧~"）

EndIf

Iff>0.1Andf<0.25Then

MsgBox（"身材不错，男朋友最佳人选哦~^^"）

EndIf

EndIf

Ifx=0Then

Iff>0.33Then

MsgBox（"如果我没猜错，您是一个标准的吃货……"）

EndIf

Iff<0.15Then

MsgBox（"要骨感可不要太瘦哦，多吃点吧~"）

EndIf

Iff>0.15Andf<0.33Then

MsgBox（"哇~美女一枚耶！

"）

EndIf

EndIf

EndSub

PrivateSubCommand18邓艺_Click（）

Me.Text9邓艺.Value=""

Me.Text邓艺.Value=""

Me.Text15邓艺.Value=""

Me.Caption=""

Me.Label0邓艺.Caption="帅哥美女鉴定器"

Me.Option4邓艺.Value=False

Me.Option2邓艺.Value=False

EndSub

PrivateSubCommand22邓艺_Click（）

Me.Option2邓艺.Value=True

Me.Option4邓艺.Value=False

Me.Text15邓艺.Value=20

Me.Text邓艺.Value=61

Me.Text9邓艺.Value=1.72

Me.Caption="帅哥测试器"

Me.Label0邓艺.Caption="帅哥测试器"

EndSub

PrivateSubCommand23邓艺_Click（）

Me.Option2邓艺.Value=True

Me.Option4邓艺.Value=False

Me.Text15邓艺.Value=20

Me.Text邓艺.Value=95

Me.Text9邓艺.Value=1.72

Me.Caption="帅哥测试器"

Me.Label0邓艺.Caption="帅哥测试器"

EndSub

PrivateSubCommand24邓艺_Click（）

Me.Option2邓艺.Value=True

Me.Option4邓艺.Value=False

Me.Text15邓艺.Value=20

Me.Text邓艺.Value=38

Me.Text9邓艺.Value=1.72

Me.Caption="帅哥测试器"

Me.Label0邓艺.Caption="帅哥测试器"

EndSub

PrivateSubCommand25邓艺_Click（）

Me.Option4邓艺.Value=True

Me.Option2邓艺.Value=False

Me.Text15邓艺.Value=20

Me.Text邓艺.Value=61

Me.Text9邓艺.Value=1.72

Me.Caption="美女测试器"

Me.Label0邓艺.Caption="美女测试器"

EndSub

PrivateSubCommand26邓艺_Click（）

Me.Option4邓艺.Value=True

Me.Option2邓艺.Value=False

Me.Text15邓艺.Value=20

Me.Text邓艺.Value=95

Me.Text9邓艺.Value=1.72

Me.Caption="美女测试器"

Me.Label0邓艺.Caption="美女测试器"

EndSub

PrivateSubCommand27邓艺_Click（）

Me.Option4邓艺.Value=True

Me.Option2邓艺.Value=False

Me.Text15邓艺.Value=20

Me.Text邓艺.Value=38

Me.Text9邓艺.Value=1.72

Me.Caption="美女测试器"

Me.Label0邓艺.Caption="美女测试器"

EndSub

PrivateSubForm_Load（）

Me.Option2邓艺=True

Me.Option4邓艺=False

EndSub

PrivateSuboption2邓艺_click（）

Me.Option2邓艺.Value=True

Me.Option4邓艺.Value=False

Me.Caption="帅哥测定器"

EndSub

PrivateSuboption4邓艺_click（）

Me.Option4邓艺.Value=True

Me.Option2邓艺.Value=False

Me.Caption="美女测定器"

EndSub

5、运行界面：

题目要求六个数据运行结果如下：

（1）男性数据1:

（2）女性数据1：

（3）男性数据2：

（4）女性数据2：

（5）男性数据3：

（6）女性数据3：

三、结论

分析讨论

构造体脂肪率界面完成后，思考作为一个普通用户希望完成的功能，例如性别应该使用什么控件输入比较合理。

并思考作为一个程序开发人员应该在哪个对象的什么事件编写代码才能够完成前面你作为普通人员期望完成的功能。

四、指导教师评语及成绩

成绩：

指导教师签名：