上海出租车计费的VB程序

问题描述：

就是放VB里的编码就行了，急需~
小型出租汽车起租价为11元，。起租里程都是3公里，超起租里程单价每公里2.1元。
载客运距超过10公里（不含10公里），超过部分按超起租里程单价加价50％。
当日23时（含23时）至次日5时（不含5时）时段内，起租费、超起租里程运价上浮30％。
计价器车资金额显示以人民币“元”为单位，“元”以下不显示。
元以下尾数小于等于0.50元舍去，大于等于0.51元进“1元”。
出租汽车实行计时、计程并用的计价方式。在载客营运途中因非承运人责任时速低于12公里或应乘客要求停车等候时，每5分钟计收1公里超起租里程运价。由于承运人原因停驶时，承运人应暂停计费。
谢谢了，行的话分都给你~

问题解答：

可是阿拉不是上海人

VB阿拉到是会一点点,侬要不要补充一下上海TAXI的收费标准?

======补充================
Private Sub Command1_Click()
Dim h%, l%, qz!, dj!, je!

h = Val(InputBox("请输入现在是几点! (0-23时)"))
l = Val(InputBox("请输入公里数!"))

If h < 0 Or h > 23 Then MsgBox "时间输入不正确!": Exit Sub
If l < 0 Then MsgBox "距离输入不正确!": Exit Sub

qz = IIf(h = 23 Or h < 5, 11 * 1.3, 11)
dj = IIf(h = 23 Or h < 5, 2.1 * 1.3, 2.1)

Select Case l
Case Is <= 3
je = qz
Case Is < 10
je = qz + (l - 3) * dj
Case Is >= 10
je = qz + 7 * dj + (l - 10) * dj * 1.5
End Select

je = Round(je, 2)
je = IIf(je * 100 Mod 100 >= 51, Fix(je) + 1, Fix(je))

MsgBox "这回要收您" & je & "元,欢迎你下次继续在上海打的.."
End Sub