Dim a As Single, b As Single, c As Single

文章插图
a = Val(Text1)

文章插图
b = Val(Text2)
c = Round(a / (b * 1.6))
Label6.Caption = c
If Option1.Value Then
If c < 20 Then
Label8.Caption = \"过轻\"
ElseIf c < 25 Then
Label8.Caption = \"适中\"
ElseIf c < 30 Then
Label8.Caption = \"过重\"
ElseIf c < 35 Then
Label8.Caption = \"肥胖\"
ElseIf c >= 35 Then
Label8.Caption = \"非常肥胖\"
End If
Else
If c < 19 Then
Label8.Caption = \"过轻\"
ElseIf c < 24 Then
Label8.Caption = \"适中\"
【VB 程序书写题计算BMI 值 输出指数和结论】ElseIf c < 29 Then
Label8.Caption = \"过重\"
ElseIf c < 34 Then
Label8.Caption = \"肥胖\"
ElseIf c >= 34 Then
Label8.Caption = \"非常肥胖\"
End If
End If
End Sub

• 百年GUCCI权力往事登上大银幕，豪门题材能否打破传记电影魔咒？
• 国外创投新闻 |「Butter」筹集700万美元，帮助解决因“付款失败”导致的客户流失问题
• 注册公司注意七大禁忌 在上海注册公司需要注意哪些问题
• 美国雪达犬如何喂养？美国雪达犬喂养常见问题
• 怎样防止金毛食欲不振，金毛喂养的常见问题
• 经常手麻是哪里出了问题？快对照自查~
• 喂养小泰迪应留意哪几个方面，喂养小泰迪的常见问题
• 网易云音乐带着丁磊的情怀上市：市值预估426亿港元，盈利仍是难题
• 三种不宜游水的小狗，小狗游水的常见问题
• 最合适变成导盲犬的小狗有什么，导盲犬训炼的常见问题