简单的汽车站售票系统.doc

沈阳航空航天大学
课程设计

学 号 2009040301004
班 级 94030101
姓 名 刘曦
指导教师 刘学 a3
4 16:00 40 c4 b4 a4
三、关键技术
（1）建立文本文件并输入已知数据的代码如下。
Private Sub bc_Click()
Open "" For Output As #1
Write #1, "当前售票情况："
Write #1, "班次 发车时间 载客量 已售票数 已退票数 实际售票 "
Write #1, " 1 06：40 50 " & Space(5) & c1 & Space(12) & b1 & Space(8) & a1
Write #1, " 2 09：30 40 " & Space(5) & c2 & Space(12) & b2 & Space(8) & a2
Write #1, " 3 13：00 40 " & Space(5) & c3 & Space(12) & b3 & Space(8) & a3
Write #1, " 4 16：00 40 " & Space(5) & c4 & Space(12) & b4 & Space(8) & a4
Close #1
End Sub
沈航设计用纸
第7页，共16页
图3 窗体-售退票系统判断是否已过发车时间
（2）判断是否已过发车时间。
程序段如下：
Private Sub Form_Load()
= True
Print Time
If Time >= #6:40:00 AM# Then
= False
End If
If Time >= #9:30:00 AM# Then
= False
End If
If Time >= #1:00:00 PM# Then
= False
End If
If Time >= #4:00:00 PM# Then
= False
End If
End Sub
沈航设计用纸
第8页，共16页
（3）按旅客选择实现相应班次的售票业务。
程序段如下：
Private Sub sell_Click()
= a1
= a2
= a3
= a4
If Option1 Then
a1 = a1 + 1
c1 = a1 + b1
If a1 > 50 Then
a1 = 50
c1 = a1 + b1
End If
ElseIf Option2 Then
a2 = a2 + 1
c2 = a2 + b2
If a2 > 40 Then
a2 = 40
c2 = a2 + b2
End If
ElseIf Option3 Then
a3 = a3 + 1
c3 = a3 + b3
If a3 > 40 Then
a3 = 40
c3 = a3 + b3
End If
ElseIf Option4 Then
a4 = a4 + 1
c4 = a4 + b4
If a4 > 40 Then
a4 = 40
c4 = a4 + b4
End If
沈航设计用纸
第9页，共16页
End If
= a1
= a2
= a3
= a4
End Sub
（4）按旅客选择实现相应班次的退票业务。
程序段如下：
Private Sub refund_Click()
=