综合实验报告.docx

实验十五体脂肪率测试窗体设计综合实验
操作步骤如下:
构造界面如下:
(窗体设计界面)
设置控件名称如表:
界面元素
控件名称
标签“# 帅哥美女鉴定器# _(copyright by 邓艺 0092114)”
Label0邓艺
标签“您的性别(sex):”
Label1邓艺
标签“除去增高鞋垫的身高哦亲(Height):”
Text9邓艺
标签“(m)”
Label28邓艺
标签“您的实际体重,拒绝撒谎哦亲(Weight):”
Label3邓艺
标签“(kg)”
Label29邓艺
标签“芳龄几何or贵庚(Age):”
Label4邓艺
标签“(岁)”
Label30邓艺
标签“测试数据:”
Label21邓艺
命令按钮“不要激动,开始喽!(start)”
Command17邓艺
命令按钮“怎么会这样?重新计算(update)”
Command18邓艺
命令按钮“男A”
Command22邓艺
命令按钮“男B”
Command23邓艺
命令按钮“男C”
Command24邓艺
命令按钮“女A”
Command25邓艺
命令按钮“女B”
Command26邓艺
命令按钮“女C”
Command27邓艺
窗体控件属性设置:
(命令按钮属性设置,其他类似)
(标签属性设置)
体脂肪率测试窗体代码:
pare Database
Private mand17邓艺_Click()
Dim f As Double
If = False And = False Then
MsgBox ("必须输入您的性别哦")
Exit Sub
End If
a =
If a = "" Then
MsgBox ("年龄需要被输入")
Exit Sub
End If
If a < 1 Then
MsgBox ("1岁以下不参与计算哦,请输入大于一岁的整数")
Exit Sub
End If
w =
If w = "" Then
MsgBox ("体重需要被输入")
Exit Sub
End If
If w <= 0 Then
MsgBox ("您确定您没有体重?请输入大于0的整数")
Exit Sub
End If
h =
If h = "" Then
MsgBox ("身高需要被输入")
Exit Sub
End If
If h = 0 Then
MsgBox ("您确定您没有身高?请输入大于0的整数")
Exit Sub
End If
If = True Then
x = 1
Else
x = 0
End If
f = ( * (w / h ^ 2) + * a - - * x) / 100
If x = 1 Then
If f > Then
MsgBox ("最近又吃多了吧?= =")
End If
If