还有一个vb的作业 ,求高手!!

2024-12-14 08:59:52
推荐回答(1个)
回答1:

身高 体重 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