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
为什么永远输出都是偏瘦的！

Option Explicit

Private Sub Command1_Click() '健康测试

Dim y As Integer

y = val(Text2.text) / (val(Text1.text) ^ 2)

  If (y < 20) Then
   
MsgBox "偏瘦", vbDefaultButton1, "提示"

  ElseIf (20 < y) and (y<= 24) Then
  
MsgBox "正常", vbDefaultButton1, "提示"

  ElseIf (24 < y) and ( y <= 30 ) Then
  
MsgBox "偏胖", vbDefaultButton1, "提示"

  Else

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

  End If
  
   
End Sub


Private Sub Command2_Click() '退出
End
End Sub

2楼的Val函数是必要的，但判断语句中的括号可不要吧。

括号可以不要，我加上括号只是为了阅读方便。