vb 机票订购系统

题目：一家小型航空公司刚刚购买了一台计算机，以使用新的机票自动预订系统，这家公司要求我们开发这个新系统。我们需要编写一个应用程序，对这家航空公司唯一的一架飞机（容量为10个座位）的每个航班分配座位。这个应用程序应该输入下面这些选项：请输入1选择头等舱和请输入2选择经济舱。如果用户输入1，应用程序应该分配一个位于头等舱的座位（座位1~5）。如果用户输入2，应用程序应该分配一个位于经济舱的座位（座位6~10）。然后，这个应用程序应该显示一张登机证，注明用户的座位号码及它位于飞机上的头等舱还是经济舱。
使用一个基本类型Boolean的一维数组来表示这张飞机的座位图。把这个数组的所有元素初始化为false，表示这些座位都是空的。分配每个座位后，把对应的数组元素设置为True，表示这个座位已经被预订。这个应用程序不能分配已经被分配的座位。当经济舱满员之后，应用程序应该询问用户是否接受头等舱（反之亦然）。如果是，就进行适当的座位分配。如果不是，就显示信息“下一航班在3小时之后”
Public Class flight
Dim seats As Boolean() = New Boolean(9) {False, False, False, False, False, False, False, False, False, False}
Public Sub process()
Dim a = 0
For i As Integer = 0 To 9
If seats(i) = False Then
a = 1
Exit For
End If
Next
If a = 0 Then
full()
End If
Console.Write("请输入1选择头等舱，请输入2选择经济舱: ")
Dim readnumber As Integer
readnumber = Convert.ToInt32(Console.ReadLine())
Console.WriteLine()
If readnumber = 1 Then
firstclass()
End If
If readnumber = 2 Then
economy()
Else
Exit Sub
End If
End Sub
Public Sub firstclass()
For i As Integer = 0 To 4 Step 1
If seats(i) = False Then
seats(i) = True
Console.Write("头等舱" & i + 1 & "坐")
Console.WriteLine()
Console.WriteLine()
process()
Exit For
End If
N