请教各位老师：已在全局代码粘贴下面的代码： 

    Public Function InTax2(ByVal x As Double) As Double
        Dim y As Double
        If x > 80000 Then
            y = x * 0.45 - 13505
        ElseIf x > 55000 Then
            y = x * 0.35 - 5505
        ElseIf x > 35000 Then
            y = x * 0.3 - 2755
        ElseIf x > 9000 Then
            y = x * 0.25 - 1005
        ElseIf x > 4500 Then
            y = x * 0.2 - 555
        ElseIf x > 1500 Then
            y = x * 0.1 - 105
        ElseIf x > 0 Then
            y = x * 0.03
        ElseIf x <= 0 Then
            y = 0
        End If
        Return Math.Round(y, 2)
    End Function

在打开项目时，编译错误。未发布的项目无此问题。
此主题相关图片如下：编译错误.jpg