7,762
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Dim tz As Single, sg As Single, bmi As Single
tz = Val(Text1.Text)
sg = Val(Text2.Text)
If (sg > 0) Then
bmi = tz / (sg * sg)
Text3.Text = bmi
If (bmi < 18.5) Then
Label4.Caption = "你的体重偏瘦"
Else
If (bmi >= 18.5 And bmi < 24) Then
Label4.Caption = "你的体重正常"
Else
Label4.Caption = "你的体重偏重"
End If
End If
End If
End Sub