某市出租车收费标准如下:
⑴3公里内(含3公里),收费8元;
⑵超过3公里但未超过6公里部分,按1.5元/公里收费;
⑶超过6公里部分,按2.25元/公里收费。
根据以上标准,输入出租车行驶的公里数,请计算顾客需付费多少元?
【参考代码】
Dim s As Single
Dim p As Single
s=Val(InputBox(“s=”))
If s<=3 Then
p=8
End If
If Then
p=1.5*(s-3)+8
End If
If s>6 Then
p=2.25*(s-6)+1.5*3+8
End If
Print p
根据上述回答下列问题: