请教各位老师:已在全局代码粘贴下面的代码:
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