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

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

2

2

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

Text

Text

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