某分段排序算法描述如下：
（1）將原始數據按升序分成若干有序段。
（2）將第1段和第2段進行合并，使得合并后的數據依舊有序，得到新的有序段。
（3）將新的有序段再次和下一個有序段進行合并。
（4）重復上述操作，直到全部數據變成一個有序段為止，排序結束。
如數據：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。繼續和下一段2、6進行合并，合并后段數變為1段，則排序結束。
編寫VB程序，實現分段排序功能：在文本框Text1中輸入數據總量，單擊“數據生成”按鈕Commandl后，在列表框List1中顯示原始數據，然后單擊“分段排序”按鈕Command2，在列表框List2中顯示排序后的結果。程序運行界面如圖所示。
請回答下列問題：
（1）若要清空列表框List1，下列代碼正確的是

A

A

（單選，填字母）
A.List1.Clear/B.List1.List=““/C.List1.Text=““/D.List1.Caption=“空白“）。
（2）實現分段排序功能的VB程序如下，請在橫線處填入合適的代碼。
（3）程序中代碼有錯，請改正。
Dim a（1 To 1000）As Integer
Dim n As Integer
Private Sub Command1_Click （　　）
'輸入數據總量n,隨機生成n個數據保存在數組
'a（1）～a（n）中，并在List1中顯示數據，代碼略
End Sub
Private Sub Command2_Click （　　）
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中輸出數組a（i）的值，代碼略
End Sub
Function Leng（ByVal p As Integer） As Integer
'該函數返回數組a中數組下標p開始的升序有序段的長度，代碼略
End Function