综合作业Word下载.docx
《综合作业Word下载.docx》由会员分享，可在线阅读，更多相关《综合作业Word下载.docx（12页珍藏版）》请在冰点文库上搜索。
掌握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公斤，求其体脂肪率。
“妹子，您需要加强营养”。
二、实验过程（步骤、记录、数据和分析）
请将实验步骤中的每一步，使用截图方式记录其过程。
本次实验，我采取了戏剧性的实验出发点，打算以兴趣来带领自己在实验的过程保持高度的集中性，便于实现实验的快速圆满完成。
首先，我构造了如下界面，以江湖术士的第一人称做了如下脂肪率测算仪器，分别构造了内容丰富多彩的控件。
包括了戏剧化的语言，还有知名度非常高的测试人员名称。
其次，我构造的设置控件名称如表：
界面元素
控件名称
标签：
“陈半仙”人体脂肪率测试
Label0陈万胜
不准不要钱哦！
Label20陈万胜
设计者：
0092101陈万胜
Label陈万胜
选择性别
Label1陈万胜
本仙需要客官的身高：
Label6陈万胜
本仙需要客官的体重：
Label7陈万胜
本仙需要客官的年龄：
Label8陈万胜
m
Label21陈万胜
Kg
Label22陈万胜
岁
Label23陈万胜
急急如意令，本仙开始施法！
Label24陈万胜
如您不信，请再来一次！
Label25陈万胜
本人简历：
Label26陈万胜
陈半仙，字万胜，道号“一清先生”，曾化名“公孙胜”效力于水泊梁山。
自幼在家乡饱读诗书，后拜入江西财经大学彭接招门下，学得一身道术，善于测人脂肪率，替人修身养性，江湖人称“入云龙”。
曾经为以下历史名人测算过脂肪率，可以点击翻看历史。
Label27陈万胜
文本框
Text9陈万胜
Text11陈万胜
Text13陈万胜
单选框：
男（male）
Option2陈万胜
女（female）
Option4陈万胜
命令按钮：
计算人体脂肪率
Com1陈万胜
重置
Com2陈万胜
西门庆
Com3陈万胜
李逵
Com4陈万胜
时迁
Com5陈万胜
潘金莲
Com6陈万胜
顾大嫂
Com7陈万胜
扈三娘
Com8陈万胜
窗体属性设置如下：
编写代码如下：
PrivateSubCom1陈万胜_Click（）
Dimf,a,w,hAsDouble
IfMe.Option2陈万胜.Value=TrueThen
x=1
Else
x=0
EndIf
a=Me.Text13陈万胜.Value
w=Me.Text11陈万胜.Value
h=Me.Text9陈万胜.Value
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
您尖嘴猴腮，瘦骨嶙峋，贫道这里有几文钱，你拿去买点干粮吧！
0.1Andf<
您玉树临风，风流倜傥，必定集万千宠爱于一身！
Ifx=0Then
0.33Then
您珠圆玉润，油光满面啊，难道是杨贵妃？
？
0.15Then
您身轻如燕，楚楚动人啊，可惜弱不禁风，需要赶快找一个护花使者，不然会被风吹走！
0.15Andf<
哇，闭月羞花，沉鱼落雁，婀娜多姿，可否留下您的电话号码？
EndSub
PrivateSubCom2陈万胜_Click（）
Me.Text9陈万胜.Value="
Me.Text11陈万胜.Value="
Me.Text13陈万胜.Value="
Me.Caption="
Me.Option2陈万胜.Value=False
Me.Option4陈万胜.Value=False
PrivateSubCom3陈万胜_Click（）
Me.Option2陈万胜.Value=True
Me.Text13陈万胜.Value=20
Me.Text11陈万胜.Value=61
Me.Text9陈万胜.Value=1.72
陈半仙男性脂肪率测试"
PrivateSubCom4陈万胜_Click（）
Me.Text11陈万胜.Value=95
PrivateSubCom5陈万胜_Click（）
Me.Text11陈万胜.Value=38
PrivateSubCom6陈万胜_Click（）
Me.Option4陈万胜.Value=True
陈半仙女性脂肪率测试"
PrivateSubCom7陈万胜_Click（）
PrivateSubCom8陈万胜_Click（）
PrivateSubOption2陈万胜_Click（）
Me.Option2陈万胜.Value=True
Me.Option4陈万胜.Value=False
Me.Caption="
PrivateSubOption4陈万胜_Click（）
Me.Option4陈万胜.Value=True
Me.Option2陈万胜.Value=False
EndSub
运行界面如下：
三、结论
分析讨论
构造体脂肪率界面完成后，思考作为一个普通用户希望完成的功能，例如性别应该使用什么控件输入比较合理。
并思考作为一个程序开发人员应该在哪个对象的什么事件编写代码才能够完成前面你作为普通人员期望完成的功能。
经过本次实验，我认为作为一个普通用户希望能够完成的功能是测试各种性别以及身高体重还有年龄的脂肪率，所以我们通过代码实现这项要求，通过单选框，我们能够使用户在男女性别之间进行选择，option2和option4就是我们需要去编写的地方，通过Me.Option2陈万胜的条件判断，做一个分支结构，以达到该项目的，总而言之，本次实验很成功。
四、指导教师评语及成绩
成绩：
指导教师签名：
升级会员 