16.編寫一個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,當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