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
相关文档：
引言:
做一个控件, 用于 数据采样如示波器, 可以添加,删除曲线, 设置曲线的相关属性: 线型,颜色,等...
过程:
先创建 线 类, 在用户控件里实现 线 对象创建, 并声明一个 集合, 用于 存放建立的线对象.
问题 ......
今天做一个VB程序的自显注册码。我也不知道该怎么叫，就是找到出现注册码的地方，然后用对话框弹出来。说白了就是用MessageBox把一个字符串给弹出来（没追求阿。。。）
为了有点追求，今天不导入user32里面的API，而是把VB里面自带的Msgbox函数给挖出来调用，就是引用MSVBVM60.rtcMsgBox函数。我� ......
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=...
...
& ......
使用VC编写VB使用DLL
一、在函数定义前必须加上extern "c"，_stdcall关键字。
extern "C" int _stdcall Sum(int x,int y)
{
return x+y;
}
二、DLL的.def文件中必须加上入口函数
EXPORTS
sample @1
......
重拾VB之三，二进制文件篇
PMP 关劲松
鬼使神差，09年12月入职的公司仍使用VB开发软件，虽然并非专职开发，但也不得不在事隔4年之后，重新使用VB。
读取、修改二进制文件仍是大部分编程语言的基本开发技能。可以提高处理文件效率，主要应用在通信、交换数据等方面。
'open filena ......
