身高 体重 cm Kg分别是Label1 Label2 Label3 Label4
Private Sub Command1_Click()
If Text2.Text < (Text1.Text - 105) * 0.9 Then Label5.Caption = "偏瘦,增加营养"
If Text2.Text > (Text1.Text - 105) * 1.1 Then Label5.Caption = "偏胖,加强锻炼,注意节食"
If Text2.Text <= (Text1.Text - 105) * 1.1 And Text2.Text >= (Text1.Text - 105) * 0.9 Then Label5.Caption = "正常,继续保持"
End Sub