学进去

酒店房间管理问题：某酒店房间（房间数小于1000）编号按1、2、3……连续编号，客房经理对没有入住的房间使用如下方法来登记管理。连续的空房间，登记第一个房间的编号和连续的空房间数，比如空房间1，2，6，7，8，10，则登记3条记录，分别为1_2，6_3，10_1。某旅客如果退房，需要把这个房间号也登记进去，共有4中情况需要处理：
（1）上靠：若退的房间号为3，则原来登记的记录变为1_3，6_3，10_1；
（2）下靠：若退的房间号为5，则原来登记的记录变为1_2，5_4，10_1；
（3）上下靠：若退的房间号为9，则原来登记的记录变为1_2，6_5；
（4）上下都不靠：若退的房间号为4，则原来登记的记录变为1_2，4_1，6_3，10_1
根据上述规则，小明编写了相应的VB程序，程序启动时读入空房间数据，并在列表框List1中显示，在文本框Text1中输入退房号，单击“退房”按钮后更新列表框List1中的数据。
程序界面如下图所示，请回答下列问题：

（1）当前登记的记录有3条，分别为2_3，6_2，9_4。某旅客退掉8号房间，则登记的记录将变为________。
第二部分通用技术（共50分）
（2）实现上述功能的VB程序如下，请将划线处的代码补充完整。
Const n=1000
Dim a（0 To n）As Integer a(i)保存第i条记录的开始房间号
Dim b（0 To n）As Integer b(i)保存第i条记录的房间数
Dim c As Integer, k As Integer, sp As Integer k为原始记录数
Private Sub Form_Load()
程序启动时从数据库中读取原始k条记录，依次存入a（1），b（1），a（2），b（2），…，a（k），b（k），代码略
为了程序处理方便，虚设下面两条记录
A(0)=0:b(0)=0:sp=k+1:a(sp )=1000:b(sp)=0
End Sub
Private Sub Command1_Click()

Dim i As Integer, j As Integer

c=Val(Text1.Text)

i=1

Do While a(i)<c

i=i+1

Loop

i=i-1

以下处理退房登记问题
Ifa(i)+b(i)=c Then
If a(i+1)=c+1Then   处理第3种情况

           ①__________

For j=i+1 To sp-1

a(j)=a(j+1):b(j)=b(j+1)
Next j
sp = sp-1

Else 处理第1种情况

b(i)=b(i)+1

End If

ElseIfc+1=a(i+1)Then 处理第2种情况

a(i+1)=c:b(i+1)=b(i+1)+1

Else 处理第4种情况

For j=      ②________

a(j)=a(j-1):b(j)=b(j-1)

Next j

a(i+1)=c:b(i+1)=1:     ③______

End If
List1.Clear
For i=1To sp-1

List1.Addltem"第"& CStr(i) &"条记录"&CStr(a(i))&"_"&CStr(b(i))

CStr函数的作用是将数字转成字符串

Next i

End Sub