1、掌握Access 2007的用户界面构成;掌握Access 2007数据表等对象及其视图切换。2. 实验准备(1)登陆毕博教学网站(http:/210.35.204.159/);(2)选择“数据库应用”课程;(3)选择“按周编制的教学安排”后,再选择“第一周”;(4)下载“实验”和“数据库样例”。3. 实验步骤问题综述:肥胖症是现代社会威胁人类健康的主要杀手,衡量肥胖症的指标之一是体脂肪率,它是将脂肪含量用其占总体重的百分比的形式表示。体脂肪率计算公式为:其中男性性别取值为1,女性取值为0。一般认为男性体脂25%,女性33%是诊断肥胖的标准。同时男性体脂率10%,女性体脂率 0.25 Then
2、 MsgBox (您自幼锦衣玉食,出身于名门望族,但是要注意体重不能过高哦!) End If If f 0.1 Then您尖嘴猴腮,瘦骨嶙峋,贫道这里有几文钱,你拿去买点干粮吧! 0.1 And f 您玉树临风,风流倜傥,必定集万千宠爱于一身!If x = 0 Then 0.33 Then您珠圆玉润,油光满面啊,难道是杨贵妃? 0.15 Then您身轻如燕,楚楚动人啊,可惜弱不禁风,需要赶快找一个护花使者,不然会被风吹走! 0.15 And f 哇,闭月羞花,沉鱼落雁,婀娜多姿,可否留下您的电话号码?End SubPrivate Sub Com2陈万胜_Click()Me.Text9陈万胜.V
3、alue = Me.Text11陈万胜.Value = Me.Text13陈万胜.Value = Me.Caption = Me.Option2陈万胜.Value = FalseMe.Option4陈万胜.Value = FalsePrivate Sub Com3陈万胜_Click()Me.Option2陈万胜.Value = TrueMe.Text13陈万胜.Value = 20Me.Text11陈万胜.Value = 61Me.Text9陈万胜.Value = 1.72陈半仙男性脂肪率测试Private Sub Com4陈万胜_Click()Me.Text11陈万胜.Value = 95P
4、rivate Sub Com5陈万胜_Click()Me.Text11陈万胜.Value = 38Private Sub Com6陈万胜_Click()Me.Option4陈万胜.Value = True陈半仙女性脂肪率测试Private Sub Com7陈万胜_Click()Private Sub Com8陈万胜_Click()Private Sub Option2陈万胜_Click() Me.Option2陈万胜.Value = True Me.Option4陈万胜.Value = False Me.Caption = Private Sub Option4陈万胜_Click() Me.O
5、ption4陈万胜.Value = True Me.Option2陈万胜.Value = FalseEnd Sub 运行界面如下:三、结论分析讨论构造体脂肪率界面完成后,思考作为一个普通用户希望完成的功能,例如性别应该使用什么控件输入比较合理。并思考作为一个程序开发人员应该在哪个对象的什么事件编写代码才能够完成前面你作为普通人员期望完成的功能。 经过本次实验,我认为作为一个普通用户希望能够完成的功能是测试各种性别以及身高体重还有年龄的脂肪率,所以我们通过代码实现这项要求,通过单选框,我们能够使用户在男女性别之间进行选择,option2和option4就是我们需要去编写的地方,通过Me.Option2陈万胜的条件判断,做一个分支结构,以达到该项目的,总而言之,本次实验很成功。四、指导教师评语及成绩成绩: 指导教师签名:
copyright@ 2008-2023 冰点文库 网站版权所有
经营许可证编号:鄂ICP备19020893号-2