大家好，欢迎来到IT知识分享网。
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小程序，请关注我，点击下方的广告可以更好的支持我哦！
免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权，请联系删除，如若转载，请注明出处：https://yundeesoft.com/72290.html
