VB小程序,关注我有更多的有趣的VB小程序
实现功能:输入体重和身高就能计算出体重过重还是过轻还是刚刚好
实现方法:BMI指数=体重/身高的平方
控件:五个Label标签、两个TextBox文本框、一个Command命令按钮
界面:
![369f3e8f5f5febf0b5a9b735df5686b8.png](https://i-blog.csdnimg.cn/blog_migrate/ed1726a69186a2b39ee03348ecdf4f8d.jpeg)
![68455ae9389631b7e022d70c5a9bccf0.png](https://i-blog.csdnimg.cn/blog_migrate/5c1ec474d5ee5475351fcab45d658d14.jpeg)
代码:
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小程序,请关注我,点击下方的广告可以更好的支持我哦!