vb 编程 车租车问题

vb 编程 车租车问题

一个简单的条件问题啊  如果没理解错的话~

Private Sub Command1_Click()

Select Case Val(Text1.Text)

Case Is <= 0

MsgBox 请输入里程

Case Is <= 3

Label2.Caption = 应付车费： & 5

Case Is > 3

Label2.Caption = 应付车费： & Val(Text1.Text) * 1.8 + (Val(Text1.Text) - 3) * 1.8 * 0.2 * Option1.Value

End Select

End Sub

Private Sub Form_Load()

Option2.Value = True

End Sub

谁有好介绍广州地陪导游和租车的业务?

别坐绿，咖啡两种颜色的计程车就好，这两种都是集资公司的，比较杂，而且计程表跳的比较快，还会走远路，只要不坐这两种就可以了。

红和黄两种比较好，而且黄的话司机都是广州人，比较好客，也可以当导游之类的，不会走远路，给你找最快到的路线，希望您玩的开心。

顶一下

(0)

0%

踩一下

(0)

0%