12实验十二 窗体设计综合实验体脂肪率.docx
《12实验十二 窗体设计综合实验体脂肪率.docx》由会员分享，可在线阅读，更多相关《12实验十二 窗体设计综合实验体脂肪率.docx（13页珍藏版）》请在冰豆网上搜索。
12实验十二窗体设计综合实验体脂肪率
实验十五体脂肪率测试窗体设计综合实验
学号
7
姓名
同组人
实验项目
体脂肪率测试窗体设计综合实验
实验地点
实验仪器台号
指导教师
刘爱红
实验日期及节次
年月日，第节
一、实验要求
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
3
结构界面，命名控件，设置属性，完成现在开始编写事件代码。
PrivateSubCommand15何文俊_Click（）
Dima,b,c,hwjAsDouble
a=Me.年龄何文俊.Value
b=Me.身高何文俊.Value
c=Me.体重何文俊.Value
IfMe.Option男何文俊.Value=TrueThen
hwj=（1.2*（c/（b^2））+0.23*a-5.4-10.8）/100
Me.Label20何文俊.Caption=hwj
Ifhwj>0.25Then
MsgBox（"Hei,man,胖了点哦平时要多运动!
不要再宅啦!
"）
ElseIfhwj<=0.1Then
MsgBox（"哥们加油啊,不够man啊.多吃点多吃点!
"）
ElseIfhwj>0.1Andhwj<=0.25Then
MsgBox（"哎呦不错哦,帅哥好标准哦.要继续保持!
"）
EndIf
ElseIfMe.Option女何文俊.Value=TrueThen
hwj=（1.2*（c/（b^2））+0.23*a-5.4）/100
Me.Label20何文俊.Caption=hwj
Ifhwj>0.33Then
MsgBox（"要加强运动啦!
贵妃啊"）
ElseIfhwj<=0.15Then
MsgBox（"别减肥了,多吃多睡身体好!
美女"）
ElseIfhwj>0.15Andhwj<=0.33Then
MsgBox（"美女啊,绝世好身材啊,让人羡慕嫉妒恨啊"）
EndIf
EndIf
EndSub
PrivateSubForm_Load（）
Me.Option男何文俊.Value=True
Me.Option女何文俊.Value=False
EndSub
PrivateSubCommand18何文俊_Click（）
Me.姓名何文俊.Value=""
Me.年龄何文俊.Value=""
Me.身高何文俊.Value=""
Me.体重何文俊.Value=""
Me.Option男何文俊.Value=True
Me.Label20何文俊.Caption="神奇的数字出现在这里哦"
Me.姓名何文俊.SetFocus
EndSub
PrivateSubOption男何文俊_Click（）
Me.Option男何文俊.Value=True
Me.Option女何文俊.Value=False
EndSub
PrivateSubOption女何文俊_Click（）
Me.Option男何文俊.Value=False
Me.Option女何文俊.Value=True
EndSub
三、结论
分析讨论
构造体脂肪率界面完成后，思考作为一个普通用户希望完成的功能，例如性别应该使用什么控件输入比较合理。
并思考作为一个程序开发人员应该在哪个对象的什么事件编写代码才能够完成前面你作为普通人员期望完成的功能。
1.结构界面首先把需要的点击创建，和空白窗体。
在窗体这里点击右键选择设计视图，然后把需要的各个控件放到设计视图中去，位置放好，调好大小。
其中文本框四个，选项按钮两个；按钮两个，标签若干个。
2.命名控件.设置属性把四个文本框标题改成自己需要的标题，姓名.身高.体重.年龄.然后把名称改成对应标题的名称加上我的姓名何文俊。
在按钮输入需要让读者明白的值。
第一个是来测试吧，第二个是在测试吧。
把所有的名称的属性加上我的姓名何文俊
3编写事件代码
PrivateSubCommand15何文俊_Click（）
Dima,b,c,hwjAsDouble
a=Me.年龄何文俊.Value
b=Me.身高何文俊.Value
c=Me.体重何文俊.Value
IfMe.Option男何文俊.Value=TrueThen
hwj=（1.2*（c/（b^2））+0.23*a-5.4-10.8）/100
Me.Label20何文俊.Caption=hwj
Ifhwj>0.25Then
MsgBox（"Hei,man,胖了点哦平时要多运动!
不要再宅啦!
"）
ElseIfhwj<=0.1Then
MsgBox（"哥们加油啊,不够man啊.多吃点多吃点!
"）
ElseIfhwj>0.1Andhwj<=0.25Then
MsgBox（"哎呦不错哦,帅哥好标准哦.要继续保持!
"）
EndIf
ElseIfMe.Option女何文俊.Value=TrueThen
hwj=（1.2*（c/（b^2））+0.23*a-5.4）/100
Me.Label20何文俊.Caption=hwj
Ifhwj>0.33Then
MsgBox（"要加强运动啦!
贵妃啊"）
ElseIfhwj<=0.15Then
MsgBox（"别减肥了,多吃多睡身体好!
美女"）
ElseIfhwj>0.15Andhwj<=0.33Then
MsgBox（"美女啊,绝世好身材啊,让人羡慕嫉妒恨啊"）
EndIf
EndIf
EndSub
PrivateSubForm_Load（）
Me.Option男何文俊.Value=True
Me.Option女何文俊.Value=False
EndSub
PrivateSubCommand18何文俊_Click（）
Me.姓名何文俊.Value=""
Me.年龄何文俊.Value=""
Me.身高何文俊.Value=""
Me.体重何文俊.Value=""
Me.Option男何文俊.Value=True
Me.Label20何文俊.Caption="神奇的数字出现在这里哦"
Me.姓名何文俊.SetFocus
EndSub
PrivateSubOption男何文俊_Click（）
Me.Option男何文俊.Value=True
Me.Option女何文俊.Value=False
EndSub
PrivateSubOption女何文俊_Click（）
Me.Option男何文俊.Value=False
Me.Option女何文俊.Value=True
EndSub
四、指导教师评语及成绩
成绩：
指导教师签名：
升级会员 