给定一个序列 a，这个序列由 n 个数组成（n 个数依次保存在数组 a(1) ~a(n)中），现在给定一个整数 p，要求将序列 a的前 p 个数与后 n-p 个数对调，且不改变这 p 个数（和 n-p个数）之间的相对位置｡例如长度为 5 的序列 1，2，3，4，5，当 p=2 时重排的结果为 3，4，5，1，2｡
我们可以用两种不同的方法来实现这一目的：
方法一：逐个地将数组 a 的后 n-p 个数依次移动到前面去｡
数组 a：
方法二：将前 p 个数看作一个区间，后 n-p 个数看作另一个区间，依次将数交换，同时缩小区间的大小；若某一个区间达到末尾，则调整区间的范围，直到两个区间刚好同时达到末尾，即调整结束｡
数组 a：
互换并调整区间：第一个区间结束且第二个区间还有元素，调整区间 1 和区间 2 的范围，如图将区间 1 调整为3，4，区间 2 调整为5：5｡
互换并调整区间：第二个区间结束且第一个区间还有元素，仅调整第 1 个区间的起始位置｡
互换并结束：两个区间同时到达末尾｡
小明依据上面的方法设计了 VB 程序如下：
Dim a(1 To 100), i As Integer, j As Integer, tmp As Integer, p As Integer
Dim start1 As Integer, end1 As Integer, start2 As Integer, end2 As Integer '将序列保存到数组 a中,序列长度保存到 n 中,移动数字的个数保存在 p 中
Private Sub Command2_Click() '用方法一实现
For i = p + 1 To n
tmp = a(i)
For j = i To
① Step -1
a(j) = a(j - 1)
Next j
② = tmp
Next i
End Sub
Private Sub Command3_Click() '用方法二实现
start1 = 1: end1 = p '第 1 个区间的起始状态
start2 = p + 1: end2 = n '第 2 个区间的起始状态
i = start1: j = start2
Do While
③ i = start1: j = start2
Do While i <= end1 And j <= end2
tmp = a(i): a(i) = a(j): a(j) = tmp
i = i + 1:j = j + 1
Loop
If i <= end1 Then '第 2 个区间结束且第 1 个
区间还有元素
start1 = i
ElseIf j <= end2 Then '第 1 个区间结束且第 2
个区间还有元素
start1 = i:
④ start2 = j
End If
Loop
End Sub
请回答下列问题：
（1）若序列为：9，8，13，22，7，6，5，37，6，p=4 时，使用方法一，则 a(3)的值依次是 13，_________________（用逗号隔开，顺序填写曾存储过的值）｡
（2）请在划线处填入合适的代码｡
①_______________________
②_______________________
③_______________________
④_______________________
