要求编写VB应用程序，使其具有下列功能：在文本框Text1中输入身高数据，在文本框Text2中输入体重数据，在复选框Check1据实勾选“性别”，单击“判断”按钮Command1，按“世界卫生组织体重计算标准”进行判断，并在Label3中显示判断结果．界面设计如图1所示．世界卫生组织关于成年人体重标准的计算方法如图2所示．

世界卫生组织关于成年人体重标准的计算方法
男性：（身高cm-80）×70%=标准体重，女性：（身高 cm-70）×60%=标准体重，标准体重正负10%为正常体重，标准体重正负10%～20%为体重过重或过轻，标准体重正负20%以上为肥胖或体重不足
（1）应用程序界面设计时，为添加文本框Text1和Text2，应使用如图所示的“控件工具箱”中的

2

2

（填写相应编号），并在属性窗口中将两个文本框的

Text

Text

属性设置为空．
（2）请根据题意将下列VB应用程序补充完整
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=0Then
sc=（cm-80）*0.7
Else

①

①

End if
i=（kg-sc）/kg
If i＞=-0.1And i＜=0.1Then
Label3．Caption=“正常体重”
ElseIf i＞0.1And i＜=0.2Then
Label3．Caption=“体重超重”
ElseIf i＞0.2Then

②

②

ElseIf i＜=-0.1And i＞=-0.2Then
Label3．Caption=“体重过轻”
Else
Label3．Caption=“体重严重不足”
End If
End Sub.