编写VB程序,实现如下功能:在文本框Text1和Text2中分别输入体重(单位:kg)和身高(单位:m),单击命令按钮Command1,计算BMI(体重指数)(体重指数等于体重(kg)除以身高(m)的平方)。
如果BMI<18.5,则在标签Label5中显示“体重过轻!”;如果18.5≤BMI≤25,则在标签Label5中显示“体重正常!”;如果BMI>25,则在标签Label5中显示“体重过重!”。运行效果如图所示。
(1)
若要删除标签Label5中显示的内容“Label5”,可在其属性窗口中将属性的属性值删除。
(2)
为实现上述功能,请在画线处填入合适的代码。
Private
Sub Command1_Click( )
Dim h
As Single, m As Single, bmi As Single
Dim x As
String
m=Val(Text 1.Text)
h=Val(Text2.Text)
①
If
bmi<18.5Then
x="体重过轻!"
Else
If ② Then x="体重正常!"Else x="体重过重!"
End If
Label5.Caption=x
End
Sub
画线处应填入的代码为:①;②。
(3)
若某同学的身高为160cm,体重为110斤,则Label5显示的结果为。
答案: 【1】Caption
【1】bmi=m/h^2【2】bmi<=25
【1】体重正常!