1.出租車車費現有用VB編程的簡單計算程序,已經完成窗口界面和部分代碼,需要補充代

If?Val(Text1.Text)?<=?3?Then

Text2.Text?=?12

Else

Text2.Text?=?12?+?(Val(Text1.Text)?-?3)?*?2.4

End?If

End?Sub

Private?Sub?Form_Load()

Text1.Text?=?""

Text2.Text?=?""

Command1.Caption?=?"計算"

End?Sub