求高手帮帮忙啊，一个VBA编程题我不会做。。。题目如下
乘火车旅行的行李收费标准如下：成年人可免费携带重20公斤的行李，未成年人可免费携带10公斤的行李，超出这个重量，火车将加收费用，收费标准是每公斤每百公里收费为0.20元，...
乘火车旅行的行李收费标准如下：成年人可免费携带重20公斤的行李，未成年人可免费携带10公斤的行李，超出这个重量，火车将加收费用，收费标准是每公斤每百公里收费为0.20元，不足百公里按百公里记。试编程按不同类型的人和行李重量来计收费用
展开
1个回答
展开全部
Function TrainCarriage(Human As String, Weight As Double, Distance As Double) As Double
If Human = "Adult" Then
If Weight > 20 Then
If Distance > 100 Then
TrainCarriage = Distance * 0.2
Else
TrainCarriage = 100 * 0.2
End If
Else
TrainCarriage = 0
End If
ElseIf Human = "Minor" Then
If Weight > 10 Then
If Distance > 100 Then
TrainCarriage = Distance * 0.2
Else
TrainCarriage = 100 * 0.2
End If
Else
TrainCarriage = 0
End If
End If
End Function
If Human = "Adult" Then
If Weight > 20 Then
If Distance > 100 Then
TrainCarriage = Distance * 0.2
Else
TrainCarriage = 100 * 0.2
End If
Else
TrainCarriage = 0
End If
ElseIf Human = "Minor" Then
If Weight > 10 Then
If Distance > 100 Then
TrainCarriage = Distance * 0.2
Else
TrainCarriage = 100 * 0.2
End If
Else
TrainCarriage = 0
End If
End If
End Function
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
