酒店房間管理：酒店房間（房間數小于10000）編號按1、2、3…連續編號，老板對于沒有出租的房子使用如下的方法來登記管理。連續的空房間，登記第一間的編號和連續的空房間數，比如空房間1，2，6，7，8，10，則登記3條記錄，分別為（1  2），（6  3），（10  1），某旅客退房了，需要把這房子也登記上去，有四種情況需要處理：
1）上靠，例如退的房間號為3，則原來登記的3條記錄變成（ 1 3），（6  3），（10  1）；
2）下靠，例如退的房間號為5，則原來登記的3條記錄變成（1  2），（ 5 4），（10  1）；
3）上下不靠，例如退的房間號為4，則登記的記錄數變成4條（1  2），（4 1），（6  3），（10  1）；
4）上下靠，例如退的房間號為9，則登記的記錄數變成2條（1，2），（6，5）；
小王依據上述描述設計了如下VB程序。請回答下列問題：
（1）當登記的記錄有3條，分別為（1，4），（6，2），（10，3），現在某旅客退掉5號房間，則登記的記錄變成
（2）請在橫線處填入合適的代碼。
Const n=5000
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為原始記錄數
'讀取原始k條記錄的數據，依次存入a（1），b（1），a（2），b（2）…a（k），b（k），代碼略
'為了程序處理方便，虛設了下面2條記錄
a（0）=0：b（0）=0：sp=k+1：a（sp）=10000：b（sp）=0
Private Sub Command1_Click （　　）
Dim i As Integer
c=Val（Text1．Text）'c為退掉的房間號
i=1
Do While a（i）＜c'查找房間c,應該登記在某位置
i=i+1
Loop
i=i-1
'下面為處理退房登記問題
If a（i）+b（i）=c Then
If ①

a（i+1）=c+1

a（i+1）=c+1

 Then'第4種情況，上下靠
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'第3種情況，上下不靠
For j=②

sp+1toi+2step-1

sp+1toi+2step-1

a（j）=a（j-1）：b（j）=b（j-1）
Next j
a（i+1）=c：b（i+1）=1：sp=sp+1
End If
‘下面為輸出登記的記錄，不包括虛設的兩條記錄
For i=1 to ③

sp-1

sp-1

List3．AddItem“第“& Str（i） &“記錄（“& Str（a（i）） &“，“& Str（b（i）） &“）“
Next i
End Sub