1 Dim time, price As Integer ‘time代表停车时间price代表停车费用
2 time = Text1. Text ‘在文本框输入停车时间
3 If time <= 12 Then
4 price= 10
5 Else
6 price= 10 + (time - 12)
7 EndIf
8 Form1. Print price
【图 11】
微信扫码预览、分享更方便