我在上次的BMI程序里做了个提示程序如下提示出错需要:End Sub是什么原因啊？Private Sub Label4_Click() Function isfat(ByVal BMI As Double) As StringSelect Case BMI
Case 0 To 18.4
isfat = "你应该多吃点有营养的东西。"
Case 18.5 To 23.9
isfat = "恭喜你，你的体重很标准。"
Case 24 To 26.9
isfat = "你需要注意饮食，记得运动。"
Case Is > 27
isfat = "你的健康已经亮起红灯，开始减肥吧！"
Case Else
isfat = "你的BMI太奇怪了！！"End SelectEnd Function
可能是复制时的不完整。Private Sub Label4_Click()对应是End Sub 而他下面就是Function isfat(ByVal BMI As Double) As String 很明显少了 Private Sub Label4_Click() 至 End Sub 之间的代码。如果单是为了是面的能运行可以改成（1）Private Sub Label4_Click() label4.Caption = isfat(BMI) End Sub Function isfat(ByVal BMI As Double) As String Select Case BMI Case 0 To 18.4 isfat = "你应该多吃点有营养的东西。" Case 18.5 To 23.9 isfat = "恭喜你，你的体重很标准。" Case 24 To 26.9 isfat = "你需要注意饮食，记得运动。" Case Is > 27 isfat = "你的健康已经亮起红灯，开始减肥吧！" Case Else isfat = "你的BMI太奇怪了！！" End Select End Function 改成（二）Private Sub Label4_Click() label4.Caption = isfat(BMI)Select Case BMI Case 0 To 18.4 isfat = "你应该多吃点有营养的东西。" Case 18.5 To 23.9 isfat = "恭喜你，你的体重很标准。" Case 24 To 26.9 isfat = "你需要注意饮食，记得运动。" Case Is > 27 isfat = "你的健康已经亮起红灯，开始减肥吧！" Case Else isfat = "你的BMI太奇怪了！！" End Select Endsub
提问者对答案的评价：
请在End Function后面再加上End Sub就不会出错了.
这个……Function应该放在外面吧Private Sub Label4_Click() label4.Caption = isfat(BMI) End SubFunction isfat(ByVal BMI As Double) As String Select Case BMI Case 0 To 18.4 isfat = "你应该多吃点有营养的东西。" Case 18.5 To 23.9 isfat = "恭喜你，你的体重很标准。" Case 24 To 26.9 isfat = "你需要注意饮食，记得运动。" Case Is > 27 isfat = "你的健康已经亮起红灯，开始减肥吧！" Case Else isfat = "你的BMI太奇怪了！！" End Select End Function
