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程序，请回答下列问题：

Private Sub Command1_Click()

Dim i As Integer, j As Integer, sum As Integer

Dim n As Integer, k As Integer, tmp As String

n = Val (Text1.Text)

sum = 0:List1.Clear

For i = 1 To n-1

 j=i

 Do While sum < n

  {#blank#}1{#/blank#}

 j = j + 1

 Loop

 If sum = n Then

  {#blank#}2{#/blank#}

  For k=i+1 To j-1

   tmp = tmp + “+” + Str(k)

  Next k

  List1.AddItem tmp +“=”+ Str(n)

  End If

  {#blank#}3{#/blank#}

 Next i

 End Sub

s = Text1.Text

For i = 1 To Len(s) c = Mid(s, i, 1)

s1 = s1 + c Next i Text2.Text = s1

程序运行时，在文本框Text1中输入“ABC123xyz”，在文本框Text2中输出“bcd123yza”，则加框①处的代码为（ ）

A.

Dim a(1 To 100) As Integer, n As Integer

Function moving( start As Integer, finish As Integer, st As Integer)

'将元素 a(finish)插入到元素 a(start)和元素 a(start+st)之间

Dim i As Integer, k As Integer k = a(finish)

For i = finish - st To start Step -st a(i + st) = a(i)

Next i a(start) = k

End Function

Private Sub Command1_Click()

Dim head As Integer, end1 As Integer, i As Integer, ans As String

' 将待排序的数存储在数组 a 的 a(1)至 a(n)中，并输入元素个数 n，代码略

head = 1: end1 = n + 1

Do While head < end1

If    ①    Then

For i = 1 To head - 1

If a(i) > a(head) Then Exit For

Next i

Call moving(i, head, 1)

head =     ②    

Else

For i = end1 To n

If a(i) < a(head) Then Exit For

Next i

Call moving(    ③    )

End1 = end1 - 1

End If

Loop

For i = 1 To n

ans = ans + Str(a(i))

Next i

Text2.Text = ans End Sub 请回答下列问题：