Option Explicit

Dim y As Integer

Private Sub Command1_Click() '健康测试

y = Text2 / (Text1) ^ 2

  If y < 20 Then
   
 MsgBox "偏瘦", vbDefaultButton1, "提示"
 
  ElseIf 20 < y <= 24 Then
  
 MsgBox "正常", vbDefaultButton1, "提示"
 
  ElseIf 24 < y <= 30 Then
  
 MsgBox "偏胖", vbDefaultButton1, "提示"
 
  ElseIf y >= 30 Then

 MsgBox "肥胖", vbDefaultButton1, "提示"

  End If
  
   
End Sub


Private Sub Command2_Click() '退出
End
End Sub
为什么永远输出都是偏瘦的！