小章想將a數(shù)組中n個(gè)元素排列成合唱隊(duì)列形態(tài)，具體方法如下：
①如果n是奇數(shù)，選出所有數(shù)據(jù)中最大元素，將其放在a數(shù)組正中間位置。
②從剩下待處理數(shù)據(jù)中選出最大的兩個(gè)元素，同時(shí)將較大元素放在已處理數(shù)據(jù)段的右側(cè)，較小元素放在已處理數(shù)據(jù)段的左側(cè)。
③反復(fù)執(zhí)行操作②，直到所有數(shù)據(jù)處理完畢。按上述要求，小章編寫一個(gè)VB程序，功能如下：
在文本框Text1中輸入n,單擊“生成”按鈕Command1，并在文本框 List1 中顯示排序前 數(shù)據(jù)；單擊“排序”按鈕Command2，在列表框 List2 中輸出處理后的結(jié)果。程序運(yùn)行界面如圖所示。
（1）下列哪個(gè)選項(xiàng)，可以將窗體Form1標(biāo)題改為：“生成合唱隊(duì)列”

A

A

（單選，填字 母：A．Form.Caption=“生成合唱隊(duì)列”/B．Label1．Caption=“生成合唱隊(duì)列”/C．Form1．Caption=“生成合唱隊(duì)列”）
（2）實(shí)現(xiàn)上述功能的VB程序如下，請?jiān)跈M線處①②③填入合適代碼。
（3）程序加框處代碼有錯(cuò)，請改正。
Dim a（1 To 100）As Integer
Dim n  As Integer
Private Sub Command1_Click （　?。?br />'在文本框 Text1 中輸入 n（n＜=100）
'排序前數(shù)據(jù)存儲(chǔ)在數(shù)組 a 中，并在文本框 List1 中顯示
'代碼略
End Sub
Private Sub Command2_Click （　?。?br />Dim i As Integer,j  As Integer,t As Integer
Dim pMax1 As Integer,pMax2 As Integer pMax1=n\2+1：pMax2=n\2
If①Then
For i=1 To n
If a（i）＞a（pMax1）Then t x k w=a（pMax1）：a（pMax1）=a（i）：a（i）=t
Next i
pMax1=pMax1+1
End If
For i=1 To n\2
If ②Then t=a（pMax1）：a（pMax1）=a（pMax2）：a（pMax2）=t j=pMax1 Mod n+1
Do While j＜＞pMax2
If a（j）＞a（pMax1）Then
t=a（pMax1）：a（pMax1）=a（j）：a（j）=t t=a（pMax2）：a（pMax2）=a（j）：a（j）=t

t=a（pMax2）：a（pMax2）=a（j）：a（j）=t
End If
③
Loop
pMax1=pMax1+1
pMax2=pMax2-1
Next i
For i=1 To n
List2．AddItem Str（a（i））
Next i
End Sub