要求編寫VB應(yīng)用程序，使其具有下列功能：在文本框Text1中輸入身高數(shù)據(jù)，在文本框Text2中輸入體重數(shù)據(jù)，在復(fù)選框Check1據(jù)實勾選“性別”，單擊“判斷”按鈕Command1，按“世界衛(wèi)生組織體重計算標(biāo)準(zhǔn)”進(jìn)行判斷，并在Label3中顯示判斷結(jié)果．界面設(shè)計如圖1所示．世界衛(wèi)生組織關(guān)于成年人體重標(biāo)準(zhǔn)的計算方法如圖2所示．

世界衛(wèi)生組織關(guān)于成年人體重標(biāo)準(zhǔn)的計算方法
男性：（身高cm-80）×70%=標(biāo)準(zhǔn)體重，女性：（身高 cm-70）×60%=標(biāo)準(zhǔn)體重，標(biāo)準(zhǔn)體重正負(fù)10%為正常體重，標(biāo)準(zhǔn)體重正負(fù)10%～20%為體重過重或過輕，標(biāo)準(zhǔn)體重正負(fù)20%以上為肥胖或體重不足
（1）應(yīng)用程序界面設(shè)計時，為添加文本框Text1和Text2，應(yīng)使用如圖所示的“控件工具箱”中的

2

2

（填寫相應(yīng)編號），并在屬性窗口中將兩個文本框的

Text

Text

屬性設(shè)置為空．
（2）請根據(jù)題意將下列VB應(yīng)用程序補充完整
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=“體重嚴(yán)重不足”
End If
End Sub.