【加試題】數(shù)組變量a記錄著一個長度為n（1≤n≤100）的序列a（1），a（2），…，a（n）．現(xiàn)在寫一段代碼，以整數(shù)p（1≤p≤100）為參數(shù)，實現(xiàn)如下功能：將序列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．小張用VB實現(xiàn)上述功能，在文本框Text1中輸入p的值，單擊“重排”按鈕Command1，在標簽Text2中輸出結(jié)果，程序代碼如下，但數(shù)字處代碼有錯，請改正．
Const n=100
Dim a（1To n） As Integer
Private Sub Form_Load （　?。?br />'本過程隨機產(chǎn)生n個數(shù)，并存儲在數(shù)組a中，代碼略
End Sub
Private Sub Command1_Click （　　）
Dim p As Integer,i As Integer,j As Integer
p=Val（Text1．Text）
For i=p+1To n
t=a（i）
For j=i To   i-p   Step-1'①
a（j）=a（j-1）
Next j
a（j+1）=t
'②
Next i
Text2．Text=““
For i=1To n
Text2．Text=Text2．Text+““+Str（a（i））
Next i
End Sub.