VB编写一个出租车计费程序先介绍下外观第1行label1写着行驶里程旁边1个text再旁边有个label2写着KM第2行有个label3写着收费旁边有个text再旁边有个label4写着元计费规则是行驶里程不超过3

Question

VB 编写一个出租车计费程序
先介绍下外观 第1行 label1写着行驶里程 旁边1个text 再旁边有个label2写着KM
第2行 有个label3写着收费 旁边有个text 再旁边有个label4写着元
计费规则是行驶里程不超过3KM时 收费10元 超过3KM不超过20KM时 每KM按2.1元计费 超过20KM时 从3KM开始 每KM加收1元的空驶费

Answer 1

text1是KM 公里 text2是money 金额 代码如下
Dim km As Long
Dim money As Long
km = Val(Text1)
Select Case km
Case Is 20
money = (km - 3) * 2.1 + (km - 3) + 10 '在第二条的基础上,超3公里每公里加1元
End Select
Text2 = money