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

Dim n As Integer
Dim a（1To 100）As Integer
Private Sub Command1_Click （　?。蒼個(gè)有序數(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