1、12实验十二 窗体设计综合实验体脂肪率实验十五体脂肪率测试窗体设计综合实验学号7姓名同组人实验项目体脂肪率测试窗体设计综合实验实验地点实验仪器台号指导教师刘爱红实验日期及节次年月日,第节一、实验要求1. 实验目的掌握Access 2007启动和退出;掌握Access 2007的用户界面构成;掌握Access 2007数据表等对象及其视图切换。2. 实验准备(1)登陆毕博教学网站(http:/210.35.204.159/);(2)选择“数据库应用”课程;(3)选择“按周编制的教学安排”后,再选择“第一周”;(4)下载“实验”和“数据库样例”。3. 实验步骤问题综述:肥胖症是现代社会威胁人类健康
2、的主要杀手,衡量肥胖症的指标之一是体脂肪率,它是将脂肪含量用其占总体重的百分比的形式表示。体脂肪率计算公式为:其中男性性别取值为1,女性取值为0。一般认为男性体脂25%,女性33%是诊断肥胖的标准。同时男性体脂率10%,女性体脂率 0.25 Then MsgBox (Hei,man,胖了点哦平时要多运动!不要再宅啦!) ElseIf hwj 0.1 And hwj 0.33 Then MsgBox (要加强运动啦!贵妃啊) ElseIf hwj 0.15 And hwj 0.25 Then MsgBox (Hei,man,胖了点哦平时要多运动!不要再宅啦!) ElseIf hwj 0.1 An
3、d hwj 0.33 Then MsgBox (要加强运动啦!贵妃啊) ElseIf hwj 0.15 And hwj = 0.33 Then MsgBox (美女啊,绝世好身材啊,让人羡慕嫉妒恨啊) End IfEnd IfEnd SubPrivate Sub Form_Load()Me.Option男何文俊.Value = TrueMe.Option女何文俊.Value = FalseEnd SubPrivate Sub Command18何文俊_Click()Me.姓名何文俊.Value = Me.年龄何文俊.Value = Me.身高何文俊.Value = Me.体重何文俊.Value = Me.Option男何文俊.Value = TrueMe.Label20何文俊.Caption = 神奇的数字出现在这里哦Me.姓名何文俊.SetFocusEnd SubPrivate Sub Option男何文俊_Click()Me.Option男何文俊.Value = TrueMe.Option女何文俊.Value = FalseEnd SubPrivate Sub Option女何文俊_Click()Me.Option男何文俊.Value = FalseMe.Option女何文俊.Value = TrueEnd Sub四、指导教师评语及成绩成绩:指导教师签名: