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

1

2

3

4

5

↓

3

1

2

4

5

↓

3

4

1

2

5

↓

3

4

5

1

2

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

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

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

互換并結(jié)束：兩個(gè)區(qū)間同時(shí)到達(dá)末尾。

3

4

5

1

2

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

8，9，5

8，9，5

（用逗號(hào)隔開，順序填寫曾存儲(chǔ)過(guò)的值）。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
①

i-p+1

i-p+1

②

a（j）

a（j）

③

i＜=n

i＜=n

④

end1=i+p-1

end1=i+p-1