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
相关文档：
'**************************读图片文件**************************************
Sub GetPicfromDB(cn As ADODB.Connection)
On Error Resume Next
Dim ......
“自动点击按钮”小工具VB源码
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Pri ......
VB对INI文件操作
2009-02-25 00:17
INI 文件是什么样子？——不会吧，这都不知道。INI 文件就是 Windows 中常见
的以 .ini 为扩展名的文件，其内部格式和各部分的名称如下：
[Section1]
Key1=Value1
Key2=Value2
Key3=Vlaue3
[Section2]
Key1=Value1
Key2=Value5
Key4=Value4
Key5=...
...
& ......
如今OCX控件在编程中已占领了很重要的地位,我们可以利用OCX控件完成一些相当复杂的编程操作.同时OCX 控件还有利于主程序的简单化、功能的重用、隐常程序实现细节、便于升级、传播方便等优点。现在我们可以利用VB 5.0方便的制作出自己的OCX控件供我们在编程中使用同时还可以把它送给你周围喜欢编程的朋友!
下面列出制� ......
