16.要求編寫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%為體重過重或過輕,標(biāo)準(zhǔn)體重正負(fù)20%以上為肥胖或體重不足
(1)應(yīng)用程序界面設(shè)計(jì)時(shí),為添加文本框Text1和Text2,應(yīng)使用如圖所示的“控件工具箱”中的
(填寫相應(yīng)編號),并在屬性窗口中將兩個(gè)文本框的
屬性設(shè)置為空.
(2)請根據(jù)題意將下列VB應(yīng)用程序補(bǔ)充完整
Private Sub Command1_Click ( ?。?br />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.