江西财经大学数据库应用体脂肪率计算软件设计报告(2)

（4）

编写事件代码

1. 填写基本设置

Private Sub Form_Load()

Me.Caption = \欢迎使用计算体脂肪率软件\ Me.age17.Value = \ Me.height17.Value = \ Me.weight17.Value = \ Me.rate17.Value = \ Me.Option617.Value = False Me.Option17.Value = False End Sub

2.定义男性为true

Private Sub option17_click() Me.Option17.Value = True Me.Option617.Value = False End Sub

3．定义女性为true

Private Sub option617_click()

Me.Option617.Value = True Me.Option17.Value = False End Sub

4.体脂肪率计算编程

Private Sub command1617_click() Dim age17, sex17 As Integer

Dim weight17, hight17, rate17 As Double If Me.Option17.Value Then sex17 = 0

ElseIf Me.Option617.Value Then sex17 = 1 End If

age17 = Me.age17.Value height17 = Me.height17.Value weight17 = Me.weight17.Value

rate17 = 1.2 * weight17 / (height17 ^ 2) + 0.23 * age17 - 10.8 * sex17 - 5.4

Me.rate17.Value = rate17

If sex17 = 1 And rate17 >= 10 And rate17 <= 25 Then MsgBox (\靓仔，您的体型正常，请保持\ ElseIf sex17 = 1 And rate17 < 10 Then

MsgBox (\老弟，请加强营养\ ElseIf sex17 = 1 And rate17 > 25 Then MsgBox (\啊喔，请注意节食\ End If

If sex17 = 0 And rate17 >= 15 And rate17 <= 33 Then MsgBox (\靓女，您的体型正常，请保持\ ElseIf sex17 = 0 And rate17 < 15 Then MsgBox (\老妹，您需要加强营养\ ElseIf sex17 = 0 And rate17 > 33 Then MsgBox (\啊喔，请注意节食\ End If End Sub

5.清空数据

Private Sub Command17_Click() Me.age17 = \ Me.weight17 = \ Me.height17 = \ Me.rate17 = \

Me.Option617.Value = False Me.Option17.Value = False

三、 软件测试

选择性别、输入身高、体重、年龄，软件运行结果如下：

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库江西财经大学数据库应用体脂肪率计算软件设计报告(2)在线全文阅读。