1.出租车车费现有用VB编程的简单计算程序,已经完成窗口界面和部分代码,需要补充代
出租车车费
现有用VB编程的简单计算程序,已经完成窗口界面和部分代码,需要补充代码完成该编程项目。
程序功能:计算出租汽车车费。
在文本框“Text1”中输入行驶里程的千米值,按照起步价12元,3千米,续距费用为每千米2.4元,忽略等候及其他费用,单击“计算”按钮,求车费,见分进元。
请完成“计算”按钮的程序代码。
123456789101112Private Sub Command1_Click()If Val(Text1.Text) <= 3 Then Text2.Text = 12Else Text2.Text = 12 (Val(Text1.Text) - 3) * 2.4End IfEnd SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""Command1.Caption = "计算"End Sub