某分段排序算法描述如下：
（1）將原始數(shù)據(jù)按升序分成若干有序段。
（2）將第1段和第2段進(jìn)行合并，使得合并后的數(shù)據(jù)依舊有序，得到新的有序段。
（3）將新的有序段再次和下一個(gè)有序段進(jìn)行合并。
（4）重復(fù)上述操作，直到全部數(shù)據(jù)變成一個(gè)有序段為止，排序結(jié)束。
如數(shù)據(jù)：1、3、9、4、5、7、2、6，第1段為1、3、9，第2段為4、5、7，將第1段和第2段合并，得到新的第1段為1、3、4、5、7、9。繼續(xù)和下一段2、6進(jìn)行合并，合并后段數(shù)變?yōu)?段，則排序結(jié)束。
編寫(xiě)VB程序，實(shí)現(xiàn)分段排序功能：在文本框Text1中輸入數(shù)據(jù)總量，單擊“數(shù)據(jù)生成”按鈕Commandl后，在列表框List1中顯示原始數(shù)據(jù)，然后單擊“分段排序”按鈕Command2，在列表框List2中顯示排序后的結(jié)果。程序運(yùn)行界面如圖所示。
請(qǐng)回答下列問(wèn)題：
（1）若要清空列表框List1，下列代碼正確的是

A

A

（單選，填字母）
A.List1.Clear/B.List1.List=““/C.List1.Text=““/D.List1.Caption=“空白“）。
（2）實(shí)現(xiàn)分段排序功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
（3）程序中代碼有錯(cuò)，請(qǐng)改正。
Dim a（1 To 1000）As Integer
Dim n As Integer
Private Sub Command1_Click （　?。?br />'輸入數(shù)據(jù)總量n,隨機(jī)生成n個(gè)數(shù)據(jù)保存在數(shù)組
'a（1）～a（n）中，并在List1中顯示數(shù)據(jù)，代碼略
End Sub
Private Sub Command2_Click （　?。?br />Dim b（1 To 10000）As Integer
Dim p1 As Integer,p2 As Integer,t1 As Integer,t2 As Integer
Dim t As Integer,k As Integer,i As Integer,j As Integer
p1=1
t1=leng（p1）
p2=p1+t1
Do While p2＜=n
①

t2=leng（p2）或t2=leng（t1+p1）或t2=leng（t1+1）

t2=leng（p2）或t2=leng（t1+p1）或t2=leng（t1+1）

i=p1：j=p2：t=1
Do While i＜p2 Or j＜p2+t2
If j＞=p2+t2 Or 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 ②

1+t2或t-1或p2+t2-1

1+t2或t-1或p2+t2-1

a（k）=b（k）
Next k
t1=t1+t2
p2=p1+p2
Loop
'在List2中輸出數(shù)組a（i）的值，代碼略
End Sub
Function Leng（ByVal p As Integer） As Integer
'該函數(shù)返回?cái)?shù)組a中數(shù)組下標(biāo)p開(kāi)始的升序有序段的長(zhǎng)度，代碼略
End Function