module1.bas

可以进行简单的S型座位编排！这是一个数据库应用的小程序

Attribute VB_Name = "Module1"
Public ranktype As Integer
Public restype As Integer
Public emptyseat As Integer
Public seatrow, seatcol As Integer
Public bpflag As Boolean
'一个数组用于取序号
Public zw(20, 20) As Integer