酒店房间管理问题：某酒店房间（房间数小于1000）编号按1，2..连续编号，客房经理对没有人住的房间使用如下方法来登记管理。连续的空房间，登记第一个房间的编号和连续的空房间数，比如空房间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程序，程序启动时读入空房间数据，并在列表框Listl中显示，在文本框Text1l中输入退房号，单击“退房”按钮后更新列表框Listl中的数据。程序界面如图所示，请回答下列问题：

（1）当前登记的记录有3条，分别是2_3，6_2，9_4。某旅客退掉8号房间，则登记的记录将变为

2_3，6_7

2_3，6_7

.
（2）实现上述VB程序如下，请在横线处填入合适的代码。
Dim a（0 To 10）As Integer‘保存第i条记录的房间号
Dim b（0 To 10）As Integer‘保存第i条记录的房间数
Dim sp As Integer
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）=0：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
'处理退房登记问题
If a（i）+b（i）=c Then
If a（i+1）=c+1 Then‘处理第3种情况

b（i）=b（i）+1+b（i+1）

b（i）=b（i）+1+b（i+1）

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
ElseIf c+1=a（i+1）Then‘处理第2种情况
a（i+1）=c：b（i+1）=b（i+1）+1
Else
For j=

sp+1 To i+1 Step-1

sp+1 To i+1 Step-1

a（j）=a（j-1）：b（j）=b（j-1）
Next j
a（i+1）=c：b（i+1）=1：

sp=sp+1

sp=sp+1

End If
List1.Clear
For i=1 To sp-1
List1.AddItem““&Str（i） &Str（a（i）） &Str（b（i））
Next i
End Sub