編寫一個VB程序，將一個長度為n的有序序列a（1）、a（2）、……a（n），以整數(shù)t（1≤t≤n）將該有序序列劃分為兩段，并將序列a的前t個數(shù)與后n-t個數(shù)對調(diào)，且保持這兩段（t個數(shù)和n-t個數(shù)）之間的相對位置不變（即t個數(shù)和n-t個數(shù)各自有序）。例如，長度為6的有序序列38、42、59、61、69、78，當(dāng)t=2時重排結(jié)果為59、61、69、78、38、42．功能如下：
在文本框Text1中輸入n,單擊“生成”按鈕Command1后在列表框List1中顯示n 個有序數(shù)，有文本框Text2中輸入t,單擊“對調(diào)”按鈕Command2，在列表框List2輸出t個數(shù)與n-t個數(shù)對調(diào)后的數(shù)字序列。程序運行界面如下圖所示。實現(xiàn)上述功能的VB程序如下，但加框處代碼有錯，請改正。

Dim n As Integer
Dim a（1To 100）As Integer
Private Sub Command1_Click （　?。蒼個有序數(shù)，顯示在List1中
‘代碼略
End Sub
Private Sub Command2_Click （　?。?br />Dim t As Integer
Dim i As Integer
Dim j As Integer
Dim temp As Integer
t=Val（Text2．Text）
For i=tTo n‘（1）
temp=a（i）
For j=i To i+1-t Step-1
a（j）=a（j-1）
Next j
a（i+1-t）=temp‘（2）
Next i
For i=1To n
List2．AddItem Str（a（i））
Next i
End Sub