参考代码：
Public Function CalcWaterRate(ByVal WaterConsumption As Single) As Single
Dim sngWaterUnitPrice As Single
Select Case WaterConsumption
Case Is < 10
sngWaterUnitPrice = 0.2
Case Is < 20
sngWaterUnitPrice = 0.5
Case Is < 50
sngWaterUnitPrice = 1
Case Else
sngWaterUnitPrice = 1.5
End Select
CalcWaterRate = sngWaterUnitPrice * WaterConsumption
End Function
调用：
MsgBox CalcWaterRate(20)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024