求做一个出租车计价程序要求如下:
Option Explicit
Dim mStart As Single '起步价
Dim mDistance As Single '行驶里程
Dim mWaitTime As Integer '等待时间
Dim mTotal As Single '总计车费
Dim mNight As Single '夜间运价上浮
Private Sub cmdClear_Click() '清除
txtTotal = ""
End Sub
Private Sub cmdDisplay_Click() '显示
Dim mTemp As Integer
If mDistance ...全部
Option Explicit
Dim mStart As Single '起步价
Dim mDistance As Single '行驶里程
Dim mWaitTime As Integer '等待时间
Dim mTotal As Single '总计车费
Dim mNight As Single '夜间运价上浮
Private Sub cmdClear_Click() '清除
txtTotal = ""
End Sub
Private Sub cmdDisplay_Click() '显示
Dim mTemp As Integer
If mDistance = 0 Then
mTotal = 0
ElseIf mDistance > 0 And mDistance 3 And mDistance 10 Then
mTotal = (mStart + ((mDistance - 3) + mWaitTime / 300 + (mDistance - 10) * 1。
5) * 2。1) * mNight
End If
mTemp = mTotal * 10 Mod 10
mTemp = mTotal * 10 Mod 10
If mTemp > 5 Then '零钱大于5角时
mTotal = Int(mTotal) + 1
Else
mTotal = Int(mTotal)
txtTotal = mTotal
End If
End Sub
Private Sub cmdEnd_Click() '退出
End
End Sub
Private Sub cmdTitle_Click() '题目要求
Form2。
Show
End Sub
Private Sub Form_Load()
HScDistance。LargeChange = 1
HScDistance。SmallChange = 1
HScDistance。
Min = 0
HScDistance。Max = 2000
HScWaitTime。LargeChange = 1
HScWaitTime。SmallChange = 1
HScWaitTime。
Min = 0
HScWaitTime。Max = 10800
mStart = 11 '默认为小型车
mNight = 1 '默认为白天
End Sub
Private Sub HScDistance_Change() '行驶里程
mDistance = HScDistance。
Value / 10
lblDistance = "当前行驶里程(公里)：" & Format(HScDistance。Value / 10, "0。#")
Call cmdDisplay_Click
End Sub
Private Sub HScWaitTime_Change() '等待时间
mWaitTime = HScWaitTime。
Value
lblWaitTime = "总共等待时间(时：分：秒) " & Format(mWaitTime \ 3600, "00") & ":" & Format((mWaitTime Mod 3600) \ 60, "00") & ":" & Format((mWaitTime Mod 3600) Mod 60, "00")
End Sub
Private Sub OptDay_Click()
mNight = 1
Call cmdDisplay_Click
End Sub
Private Sub OptMiddle_Click() '选择中型车
mStart = 16
Call cmdDisplay_Click
End Sub
Private Sub OptNight_Click()
mNight = 1。
3
Call cmdDisplay_Click
End Sub
Private Sub OptSmall_Click() '选择小型车
mStart = 11
Call cmdDisplay_Click
End Sub
以上为Form1中的代码
以下为Form2中的代码
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim mString As String
mString = "上海客运出租车是如何计费的？" _
& vbNewLine & " 1、小型出租车汽车起租价为11元，中型出租汽车起租价为16元。
起租里程都是3公里，超租里程单价每公里2。1元" _
& vbNewLine & " 2、载客运距超过10公里(不含10公里)，超出部分按超起租里程单价加价50%。" _
& vbNewLine & " 3、当日23时(含23时)至次日5时(不含5时)时段内，起租费、超起租里程运价上浮30%。
" _
& vbNewLine & " 4、计价器车资金额显示以人民币“元”为单位，“元”以下不显示。" _
& vbNewLine & " 5、元以下尾数小于等于0。50元舍去，大于等于0。
51元进“1元”。" _
& vbNewLine & " 6、出租汽车实行计时、计程并用的计价方式。在载客营运途中因非承运人责任时速低于12公里或应乘客要求停" _
& vbNewLine & "车等候时，每分钟计收1公里超起租里程运价。
由于承运人原因停驶时，承运人应暂停计费。"
Label1。Caption = mString
End Sub
我花了近2个多小时编写了这段程序，完全达到您的要求。
。收起
