在 n 個(gè)元素的數(shù)組中，小程通過(guò)邊分段、邊合并的方法將 n 個(gè)數(shù)據(jù)處理成一個(gè)非降序數(shù)據(jù)段（a（1）≤a（2）≤a（3）≤……），排序的方法如下：
（a）從第 1 個(gè)元素開(kāi)始，在數(shù)組中依次搜索若干個(gè)非降序數(shù)據(jù)段；
（b）將第 1、2 個(gè)非降序數(shù)據(jù)段合并成一個(gè)新的非降序數(shù)據(jù)段，再將第 3、4 個(gè)非降序數(shù)據(jù)段合并成一個(gè)新的非降序數(shù)據(jù)段，依次類(lèi)推。若非降序數(shù)據(jù)段個(gè)數(shù)為奇數(shù)，則最后 1 個(gè)數(shù)據(jù)段不處理。
（c）合并后的數(shù)據(jù)段總數(shù)大于 1 個(gè)時(shí)，重復(fù)（a）（b）的操作。
編寫(xiě) VB 程序，實(shí)現(xiàn)上述合并排序功能。運(yùn)行程序，在標(biāo)簽 Label1 顯示原始數(shù)據(jù)，單擊“合并排序”按鈕 Command1，在列表框 List1 中顯示每次排序后結(jié)果。排序過(guò)程及程序運(yùn)行界面如圖 a 所示。請(qǐng)回答下列問(wèn)題：

（1）下列既可作為輸入，也可作為輸出的對(duì)象是

B

B

。（單選，填字母：A.Label1/B.Text1/C.List1）
（2）為實(shí)現(xiàn)上述功能的 VB 程序如下，請(qǐng)?jiān)跈M線(xiàn)處填入合適代碼。
（3）程序中加框處代碼有錯(cuò)，請(qǐng)改正。
Const n=10
Dim a（1 to n）As Integer
Private Sub Form_Load （　?。?br />'產(chǎn)生 n 個(gè) 1-100 之間的隨機(jī)數(shù)，存放在 a 數(shù)組中，并顯示在標(biāo)簽 Label1 中，代碼略。
End Sub
Private Sub Command1_Click （　?。?br />Dim num As Integer'num 表示非降序段數(shù)
Dim b（n）As Integer,p1 As Integer,p2 As Integer,t As Integer
Dim t1 As Integer,t2 As Integer,i As Integer,j As Integer,k As Integer
num=0：p1=1
Do While num＜＞1
t1=pos（p1）
num=num+1

p2=p1+t1

p2=p1+t1

If p2＞n Then
p1=1
Else
t2=pos（p2）
num=num+1
i=p1：j=p2：t=1
Do While t＜=t1+t2'將兩個(gè)非降序段合并
If j＞=p2+t2 Or

i＜p2 And a（i）＜a（j）或i＜p2 And a（i）＜=a（j）

i＜p2 And a（i）＜a（j）或i＜p2 And a（i）＜=a（j）

 Then
b（t）=a（i）：i=i+1
Else
b（t）=a（j）：j=j+1
End If
t=t+1
Loop
For k=1 To p1+p2'將合并后的結(jié)果存入 a 數(shù)組
a（p1+k-1）=b（k）
Next k
p1=
If p1＞n Then p1=1：num=0
'將每次的排序結(jié)果顯示在列表框 List1 中，代碼略。
End If
Loop
End Sub
Function pos（low As Integer）As Integer'查找從 low 開(kāi)始連續(xù)非降序段長(zhǎng)度
Dim i As Integer
For i=low To n-1
If a（i）＞a（i+1）Then Exit For
Next i

pos=i-low+1

pos=i-low+1

End Function