要求编写VB程序,使其具有下列功能:在文本框Text1中输入身高数据,在文本框Text2中输入体重数据,在复选框Check1据实勾选“性别”,单击“判断”按钮Command1,按“世界卫生组织体重计算标准”进行判断,并在Label3中显示判断结果。界面设计如图1所示。世界卫生组织关于成年人体重标准的计算方法如图2所示。
(1)应用程序界面设计时,为添加文本框Text1和Text2,应使用图3所示的“控件工具箱”中的___________(填写相应编号),并在属性窗口中将两个文本框的________属性设置为空。
(2)请根据题意将下列程序补充完整
Private Sub Command1_Click()
Dim cm,kg,sc As Integer
Dim i as Single
cm = Val(Text1.Text)
kg = val(Text2.Text)
sc = 0
i = 0
If Check1 =" 0" Then
sc =" (cm" - 80) * 0.7
Else
_________①__________
End If
i =" (kg" - sc) / kg
If i >=" -0.1" And i <=" 0.1" Then
Label3.Caption = "正重体重"
ElseIf i > 0.1 And i <=" 0.2" Then
Label3.Caption = "体重超重"
ElseIf i > 0.2 Then
_____________②____________
ElseIf i <=" -0.1" And i >=" -0.2" Then
Label3.Caption = "体重过轻"
Else
Label3.Caption = "体重严重不足"
End If
End Sub