综合实验
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Label7赖桂华.Caption = Str(tzl赖桂华) & "您的体型偏瘦，请加强营养"
Else
Label7赖桂华.Caption = Str(tzl赖桂华) & "您的体型正常，请加油保持"
End If
End If
If x赖桂华= 0 Then
tzl赖桂华= ((1.2 * (t赖桂华/ s赖桂华^ 2) + 0.23 * n赖桂华- 5.4 - 10.8 * 0) / 100)
Me.Caption = "女性脂肪率计算"
x赖桂华= 0
End Sub
5、保存结果，改名称为“赖桂华”
6、测试所写的程序
构造体脂肪率界面完成后，思考作为一个普通用户希望完成的功能，例如性别应该使用什么控件输入比较合理。并思考作为一个程序开发人员应该在哪个对象的什么事件编写代码才能够完成前面你作为普通人员期望完成的功能。
实验
学号
0092116
姓名
赖桂华
同组人
实验项目
体脂肪率测试窗体设计综合实验
实验地点
实验仪器台号
指导教师
实验日期及节次
年月日，第节
掌握Access 2007启动和退出；
掌握Access 2007的用户界面构成；
掌握Access 2007数据表等对象Leabharlann Baidu其视图切换。
（1）登陆毕博教学网站（http://210.35.204.159/）；（2）选择“数据库应用”课程；（3）选择“按周编制的教学安排”后，再选择“第一周”；（4）下载“实验”和“数据库样例”。
（4）对控件的相关事件编写代码，同样要求程序中的变量名后面加入你的姓名。
（5）输入六个测试数据，具体数据如下：
1）男性，20岁，1.72米，61公斤，求其体脂肪率。并给出带性别的健康建议信息，例如：“帅锅，您的体型正常，请保持”。
2）女性，20岁，1.72米，61公斤，求其体脂肪率。并给出带性别的健康建议信息，例如：“美女，您的体型正常”。
Private Sub C1赖桂华_Click()
Dim x赖桂华, s赖桂华, n赖桂华, t赖桂华As Integer
Dim tzl赖桂华As Double
s赖桂华= Me.Text1赖桂华.Value
t赖桂华= Me.Text2赖桂华.Value
n赖桂华= Me.Text3赖桂华.Value
If x赖桂华= 1 Then
If tzl赖桂华> 0.33 Then
Label7赖桂华.Caption = Str(tzl赖桂华) & "您的体型偏胖，请注意节食"
ElseIf tzl赖桂华< 0.15 Then
Label7赖桂华.Caption = Str(tzl赖桂华) & "您的体型偏瘦，请加强营养"
Else
Label7赖桂华.Caption = Str(tzl赖桂华) & "您的体型正常，请加油保持"
要求输出时，给出性别和合理的体脂肪率。
（1）阅读问题，区分问题的输入与输出。
（2）构造体脂肪率界面。其中在输出中，除输出体脂肪率数值外还要求给出针对性别的健康建议，具体见（5）对应的测试数据。输出方式可以是文本框，也可以是MsgBox的对话框。
（3）对体脂肪率界面各个控件命名，要求所有控件名后面加入你的姓名
End If
End If
End Sub
Private Sub C2赖桂华_Click()
Me.Text1赖桂华.Value = ""
Me.Text2赖桂华.Value = ""
Me.Text3赖桂华.Value = ""
End Sub
Private Sub Label10赖桂华_Click()
Me.Label10赖桂华.Value = "岁"
tzl赖桂华= ((1.2 * (t赖桂华/ s赖桂华^ 2) + 0.23 * n赖桂华- 5.4 - 10.8 * 1) / 100)
If tzl赖桂华> 0.25 Then
Label7赖桂华.Caption = Str(tzl赖桂华) & "您的体型偏胖，请注意节食"
ElseIf tzl赖桂华< 0.1 Then
3、开始添加两个单选按钮，分别命名为男性，女性，添加9个文本框，分别命名为人体脂肪率测试系统，选择性别，输入身高，输入体重，输入年龄，米，公斤，岁，结果，添加两个命令按钮，分别命名为计算人体脂肪率，继续计算。分别设置控件属性，调整各个控件的位置
4、点击右键，点击事件生成器-代码生成器，编写各个代码：
成绩：指导教师签名：
6）女性，20岁，1.72米，38公斤，求其体脂肪率。并给出带性别的健康建议信息，例如：“妹子，您需要加强营养”。
请将实验步骤中的每一步，使用截图方式记录其过程。
1、首先新建一个数据库，命名为0092116赖桂华综合实验
2、点“创建”新建空白窗体，点击设计视图，进入编辑界面，点击右键-属性，打开属性框。
End Sub
Private Sub Label8赖桂华_Click()
Me.Label8赖桂华.Value = "米"
End Sub
Private Sub Label9赖桂华_Click()
Me.Label9赖桂华.Value = ""
End Sub
Private Sub Option1赖桂华_Click()
Me.Option1赖桂华.Value = True
Me.Option2赖桂华.Value = False
Me.Caption = "男性脂肪率计算"
x赖桂华= 1
End Sub
Private Sub Option2赖桂华_Click()
Me.Option2赖桂华.Value = True
Me.Option1赖桂华.Value = False
3）男性，20岁，1.72米，95公斤，求其体脂肪率。并给出带性别的健康建议信息，例如：“man，您需要节食”。
4）女性，20岁，1.72米，95公斤，求其体脂肪率。并给出带性别的健康建议信息，例如：“Lady，请注意节食”。
5）男性，20岁，1.72米，38公斤，求其体脂肪率。并给出带性别的健康建议信息，例如：“老弟，请加强营养”。
肥胖症是现代社会威胁人类健康的主要杀手，衡量肥胖症的指标之一是体脂肪率，它是将脂肪含量用其占总体重的百分比的形式表示。体脂肪率计算公式为：
其中男性性别取值为1，女性取值为0。
一般认为男性体脂>25%，女性>33%是诊断肥胖的标准。
同时男性体脂率<10%，女性体脂率<15%是诊断偏瘦的标准。
试设计一个VBA窗体程序，计算体脂肪率。
Else
Label7赖桂华.Caption = Str(tzl赖桂华) & "您的体型正常，请加油保持"
End If
End If
If x赖桂华= 0 Then
tzl赖桂华= ((1.2 * (t赖桂华/ s赖桂华^ 2) + 0.23 * n赖桂华- 5.4 - 10.8 * 0) / 100)
Me.Caption = "女性脂肪率计算"
x赖桂华= 0
End Sub
5、保存结果，改名称为“赖桂华”
6、测试所写的程序
构造体脂肪率界面完成后，思考作为一个普通用户希望完成的功能，例如性别应该使用什么控件输入比较合理。并思考作为一个程序开发人员应该在哪个对象的什么事件编写代码才能够完成前面你作为普通人员期望完成的功能。
实验
学号
0092116
姓名
赖桂华
同组人
实验项目
体脂肪率测试窗体设计综合实验
实验地点
实验仪器台号
指导教师
实验日期及节次
年月日，第节
掌握Access 2007启动和退出；
掌握Access 2007的用户界面构成；
掌握Access 2007数据表等对象Leabharlann Baidu其视图切换。
（1）登陆毕博教学网站（http://210.35.204.159/）；（2）选择“数据库应用”课程；（3）选择“按周编制的教学安排”后，再选择“第一周”；（4）下载“实验”和“数据库样例”。
（4）对控件的相关事件编写代码，同样要求程序中的变量名后面加入你的姓名。
（5）输入六个测试数据，具体数据如下：
1）男性，20岁，1.72米，61公斤，求其体脂肪率。并给出带性别的健康建议信息，例如：“帅锅，您的体型正常，请保持”。
2）女性，20岁，1.72米，61公斤，求其体脂肪率。并给出带性别的健康建议信息，例如：“美女，您的体型正常”。
Private Sub C1赖桂华_Click()
Dim x赖桂华, s赖桂华, n赖桂华, t赖桂华As Integer
Dim tzl赖桂华As Double
s赖桂华= Me.Text1赖桂华.Value
t赖桂华= Me.Text2赖桂华.Value
n赖桂华= Me.Text3赖桂华.Value
If x赖桂华= 1 Then
If tzl赖桂华> 0.33 Then
Label7赖桂华.Caption = Str(tzl赖桂华) & "您的体型偏胖，请注意节食"
ElseIf tzl赖桂华< 0.15 Then
Label7赖桂华.Caption = Str(tzl赖桂华) & "您的体型偏瘦，请加强营养"
Else
Label7赖桂华.Caption = Str(tzl赖桂华) & "您的体型正常，请加油保持"
要求输出时，给出性别和合理的体脂肪率。
（1）阅读问题，区分问题的输入与输出。
（2）构造体脂肪率界面。其中在输出中，除输出体脂肪率数值外还要求给出针对性别的健康建议，具体见（5）对应的测试数据。输出方式可以是文本框，也可以是MsgBox的对话框。
（3）对体脂肪率界面各个控件命名，要求所有控件名后面加入你的姓名
End If
End If
End Sub
Private Sub C2赖桂华_Click()
Me.Text1赖桂华.Value = ""
Me.Text2赖桂华.Value = ""
Me.Text3赖桂华.Value = ""
End Sub
Private Sub Label10赖桂华_Click()
Me.Label10赖桂华.Value = "岁"
tzl赖桂华= ((1.2 * (t赖桂华/ s赖桂华^ 2) + 0.23 * n赖桂华- 5.4 - 10.8 * 1) / 100)
If tzl赖桂华> 0.25 Then
Label7赖桂华.Caption = Str(tzl赖桂华) & "您的体型偏胖，请注意节食"
ElseIf tzl赖桂华< 0.1 Then
3、开始添加两个单选按钮，分别命名为男性，女性，添加9个文本框，分别命名为人体脂肪率测试系统，选择性别，输入身高，输入体重，输入年龄，米，公斤，岁，结果，添加两个命令按钮，分别命名为计算人体脂肪率，继续计算。分别设置控件属性，调整各个控件的位置
4、点击右键，点击事件生成器-代码生成器，编写各个代码：
成绩：指导教师签名：
6）女性，20岁，1.72米，38公斤，求其体脂肪率。并给出带性别的健康建议信息，例如：“妹子，您需要加强营养”。
请将实验步骤中的每一步，使用截图方式记录其过程。
1、首先新建一个数据库，命名为0092116赖桂华综合实验
2、点“创建”新建空白窗体，点击设计视图，进入编辑界面，点击右键-属性，打开属性框。
End Sub
Private Sub Label8赖桂华_Click()
Me.Label8赖桂华.Value = "米"
End Sub
Private Sub Label9赖桂华_Click()
Me.Label9赖桂华.Value = ""
End Sub
Private Sub Option1赖桂华_Click()
Me.Option1赖桂华.Value = True
Me.Option2赖桂华.Value = False
Me.Caption = "男性脂肪率计算"
x赖桂华= 1
End Sub
Private Sub Option2赖桂华_Click()
Me.Option2赖桂华.Value = True
Me.Option1赖桂华.Value = False
3）男性，20岁，1.72米，95公斤，求其体脂肪率。并给出带性别的健康建议信息，例如：“man，您需要节食”。
4）女性，20岁，1.72米，95公斤，求其体脂肪率。并给出带性别的健康建议信息，例如：“Lady，请注意节食”。
5）男性，20岁，1.72米，38公斤，求其体脂肪率。并给出带性别的健康建议信息，例如：“老弟，请加强营养”。
肥胖症是现代社会威胁人类健康的主要杀手，衡量肥胖症的指标之一是体脂肪率，它是将脂肪含量用其占总体重的百分比的形式表示。体脂肪率计算公式为：
其中男性性别取值为1，女性取值为0。
一般认为男性体脂>25%，女性>33%是诊断肥胖的标准。
同时男性体脂率<10%，女性体脂率<15%是诊断偏瘦的标准。
试设计一个VBA窗体程序，计算体脂肪率。