VB的BMI提示
我在上次的BMI程序里做了个提示程序如下
提示出错需要:End Sub
是什么原因啊？
Private Sub Label4_Click()
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() 对应是 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 End sub 。
这个……Function应该放在外面吧 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
请在End Function后面再加上End Sub就不会出错了.
答：下的补丁 必须覆盖到文件上详情>>
