四时宝库

VB小程序，关注我有更多的有趣的VB小程序

实现功能：输入体重和身高就能计算出体重过重还是过轻还是刚刚好

实现方法：BMI指数=体重/身高的平方

控件：五个Label标签、两个TextBox文本框、一个Command命令按钮

界面：

代码：

Private Sub Command1_Click()

Dim h, m, bmi As Single

Dim x As String

m = Val(Text1.Text)

h = Val(Text2.Text)

bmi = m / (h * h)

If bmi < 18.5 Then

x = "体重过轻！平时要注意营养哦！"

ElseIf bmi >= 18.5 And bmi <= 25 Then

x = "体重正常，坚持运动！"

Else

x = "体重过重！少吃多运动"

End If

Label5.Caption = x

End Sub

想得到更多的VB小程序，请关注我，点击下方的广告可以更好的支持我哦！