vb如何设计一个加油站计费程序

Option Explicit

Private Sub Command1_Click()

Label4Caption = Val(Label2Caption) Val(Text1Text)

End Sub

Private Sub Form_Load()

Option1Value = True

Label2Caption = 5

两天了没人帮你得了我帮你写吧

5:0-23:00 为OPTBT,,

里程数框名为 txtkm,

金额显示那里标签为:lablmoney

请看下图代码在最后

Option Explicit

'上海出租车起步费12元（3公里） 3-10公里之间24元/公里 10公里以外32元

'等候时间每5分钟24元 夜间营运时段为23：00-5：00起步费16元（增加30％的夜间服务费）单价也随之上涨

Private Sub Command1_Click()

  If optbtValue = False And optwsValue = False Then

      MsgBox "请选择时间段!"

  ElseIf optbtValue = True Then

      lablmoneyCaption = 12 + jsk(Val(txtkmText))

  Else

      lablmoneyCaption = 16 + jsk(Val(txtkmText))

  End If

End Sub

Private Function jsk(lc As Double) As Double

  If lc < 3 Then

      jsk = jsks(Val(txtimeText))

  ElseIf lc > 10 Then

      jsk = (lc - 3)  32 + jsks(Val(txtimeText))

  Else

      jsk = (lc - 3)  24 + jsks(Val(txtimeText))

  End If

End Function

Private Function jsks(sj As Double) As Double

  If sj < 5 Then

      jsks = 0

  ElseIf sj > 5 Then

      jsks = Int(sj / 5)  24

  End If

End Function

dim x ,y as single

select case x

case is<10

y=30

case is<=50

y=25x

case else

y=2x

end select

if y>150 then

y=150

label1="你这个月的上网费用是"+str(y)

好吧，直接给你代码吧，希望以后认真学习。代码未测试。

private sub form_load()'加载

    text1="": text2="": text3=""

    text3enabled=0'只显示结果不可用

end sub

private sub command1_click()

Dim zjuli%, juli%, shij#, chef#, s_j#, sjuli%

juli=val(text1)'输入距离

shij=val(text2)'输入分钟

s_j=shij/4'分钟转换为距离

    if s_j<0 then '输入分钟为负数

         MsgBox "非法!"

    elseif s_j=0 then

         sjuli=0'无等待时间

    elseif s_j<=1 then

         sjuli=1'分钟转换为条件距离

    elseif s_j >1 then

         if s_j>int(s_j) then'判断非整数

              sjuli=int(s_j)+1'大于1时,取整+1km

         else

              sjuli=s_j

         end if

    end if

zjuli=juli+sjuli'总距离

    if zjuli<= 3 then

        chef=10'基本车费

    else

        chef=(zjuli-3)18+10'超过车费

    end if

text3=chef'总金额

end sub

private sub command2_click()'退出

end'这里是基础代码，自行完善

end sub

以上就是关于vb如何设计一个加油站计费程序全部的内容，包括:vb如何设计一个加油站计费程序、急求~用VB编程算出租车费，写出程序。要可运行的，谢谢！、VB问题:编一程序输入上网的时间并计算上网费用，计算的方法如下：等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！