VB小程序,BMI指数计算

VB小程序,BMI指数计算五个Label标签、两个TextBox文本框、一个Command命令按钮界面:代码:PrivateSubCommand1_Clickh=Valb

欢迎大家来到IT世界,在知识的湖畔探索吧!

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

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

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

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

界面:

VB小程序,BMI指数计算

VB小程序,BMI指数计算

代码:

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://itzsg.com/61139.html

(0)

相关推荐

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

联系我们YX

mu99908888

在线咨询: 微信交谈

邮件:itzsgw@126.com

工作时间:时刻准备着!

关注微信