java编写mvc程序计算bmi指数_VB编程开发的BMI指数计算程序

Private Sub Command1_Click() '计算BMI值

Dim sg As Double  '身高

Dim tz As Double   '体重

Dim jg As Double   '结果

sg = Val(Text1)

tz = Val(Text2)

jg = tz / (sg ^ 2)

Select Case jg

Case Is < 18.5

Label3.Caption = "您的BMI值结果为：" & Format(jg, "00.00") & vbCrLf & "过轻，请合理添加膳食，补充营养！"

Case 18.5 To 23.9

Label3.Caption = "您的BMI值结果为：" & Format(jg, "00.00") & vbCrLf & "正常，请注意保持！"

Case 24 To 27

Label3.Caption = "您的BMI值结果为：" & Format(jg, "00.00") & vbCrLf & "重了，请注意！"

Case 28 To 32

Label3.Caption = "您的BMI值结果为：" & Format(jg, "00.00") & vbCrLf & "胖了，请多加运动，保持身体健康！"

Case Is > 32

Label3.Caption = "您的BMI值结果为：" & Format(jg, "00.00") & vbCrLf & "喝水都胖，我也很无奈~"

End Select

End Sub