满意答案
你的公式不对a/(b*2)，我帮你改成a/(b*1.6)，看起来差不多，实际公式是a=b-1.05是标准身材。 Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
a = Val(Text1)
b = Val(Text2)
c = Round(a / (b * 1.6))
= c
If Then
If c < 20 Then
= "过轻"
ElseIf c < 25 Then
= "适中"
ElseIf c < 30 Then
= "过重"
ElseIf c < 35 Then
= "肥胖"
ElseIf c >= 35 Then
= "非常肥胖"
End If
Else
If c < 19 Then
= "过轻"
ElseIf c < 24 Then
= "适中"
ElseIf c < 29 Then
= "过重"
ElseIf c < 34 Then
= "肥胖"
ElseIf c >= 34 Then
= "非常肥胖"
End If
End If
End Sub
性别分层随机抽样，则组成此参赛队的概率为
02分享举报