給定一個序列 a,這個序列由 n 個數(shù)組成（n 個數(shù)依次保存 在數(shù)組 a（1）～a（n）中），現(xiàn)在給定一個整數(shù) p,要求將序列 a的前 p 個數(shù)與后 n-p 個數(shù)對調(diào)，且不改變這 p 個數(shù)（和 n-p個數(shù)）之間的相對位置。例如長度為 5 的序列 1，2，3，4，5，當 p=2 時重排的結(jié)果為 3，4，5，1，2。
我們可以用兩種不同的方法來實現(xiàn)這一目的：
方法一：逐個地將數(shù)組 a 的后 n-p 個數(shù)依次移動到前面去。
數(shù)組 a：

1

2

3

4

5

↓

3

1

2

4

5

↓

3

4

1

2

5

↓

3

4

5

1

2

方法二：將前 p 個數(shù)看作一個區(qū)間，后 n-p 個數(shù)看作另一個區(qū)間，依次將數(shù)交換，同時縮小區(qū)間的大?。蝗裟骋粋€區(qū)間達到末尾，則調(diào)整區(qū)間的范圍，直到兩個區(qū)間剛好同時達到末尾，即調(diào)整結(jié)束。
數(shù)組 a：

互換并調(diào)整區(qū)間：第一個區(qū)間結(jié)束且第二個區(qū)間還有元素，調(diào)整區(qū)間 1 和區(qū)間 2 的范圍，如圖將區(qū)間 1 調(diào)整為[3，4]，區(qū)間 2 調(diào)整為[5：5]。

互換并調(diào)整區(qū)間：第二個區(qū)間結(jié)束且第一個區(qū)間還有元素，僅調(diào)整第 1 個區(qū)間的起始位置。

互換并結(jié)束：兩個區(qū)間同時到達末尾。

3

4

5

1

2

小明依據(jù)上面的方法設(shè)計了 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'將序列保存到數(shù)組 a中，序列長度保存到 n 中，移動數(shù)字的個數(shù)保存在 p 中
Private Sub Command2_Click （　?。?用方法一實現(xiàn)
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 （　?。?用方法二實現(xiàn)
start1=1：end1=p'第 1 個區(qū)間的起始狀態(tài)
start2=p+1：end2=n'第 2 個區(qū)間的起始狀態(tài)
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 個區(qū)間結(jié)束且第 1 個
區(qū)間還有元素
start1=i
ElseIf j＜=end2 Then'第 1 個區(qū)間結(jié)束且第 2
個區(qū)間還有元素
start1=i：④
start2=j
End If
Loop
End Sub
請回答下列問題：
（1）若序列為：9，8，13，22，7，6，5，37，6，p=4 時，使用方法一，則 a（3）的值依次是 13，

8，9，5

8，9，5

（用逗號隔開，順序填寫曾存儲過的值）。
（2）請在橫線處填入合適的代碼。
①

i-p+1

i-p+1

②

a（j）

a（j）

③

i＜=n

i＜=n

④

end1=i+p-1

end1=i+p-1