VB编程高手进，100分求简单的体形计算程序

来源：百度知道 编辑：UC知道 时间：2024/05/05 16:49:30
刚学的VB，只知道
体重指数 =体重（公斤） 除 身高（米）的平方 kg/m2
正常体重 ： 体重指数 = 18 - 25
超重 ： 体重指数 = 25 - 30
轻度肥胖 ： 体重指数 > 30
中度肥胖 ： 体重指数 > 35
重度肥胖 ：体重指数 > 40
这个计算公式，
但是不知道如何才能让这个显示体形的软件工作，求高人写一个简单的体形计算程序，就是那种输入身高体重，显示你是胖是瘦的软件，谢谢啦。

我的E-mail:maoolove@126.com

Option Explicit

Private Sub Command1_Click()
Dim t As Single
Dim w As Single, h As Single
w = InputBox("请输入体重：")
h = InputBox("请输入身高：")
t = w / h ^ 2
Select Case t
Case Is <= 18
MsgBox "低体重"
Case Is <= 25
MsgBox "体重正常"
Case Is <= 30
MsgBox "超重体重"
Case Is <= 35
MsgBox "中度肥胖"
Case Else
MsgBox "重度肥胖"
End Select
End Sub

稍后发到你的信箱！！