vb小程序代码示例(VB小程序BMI指数计算)
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小程序,请关注我,点击下方的广告可以更好的支持我哦!
,免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com