——————————————————————————————
不应该写
Private Function A( ByVal B As Integer ) As Boolean
If B > 0 Then
Return True
Else
Return False
End If
End Function
而应该写
Private Function A( ByVal B As Integer ) As Boolean
Return (B > 0)
End Function
——————————————————————————————