小李設(shè)計的一VB程序功能如下：在文本框Text1中輸入隨機數(shù)的個數(shù)n（個數(shù)不超過100），單擊“生成”按鈕Command1，生成n個隨機整數(shù)，奇數(shù)位置產(chǎn)生奇數(shù)，偶數(shù)位置產(chǎn)生偶數(shù)，并將它們依次存儲在數(shù)組a中。單擊“排序”按鈕Command2，對數(shù)組各元素中的奇數(shù)實現(xiàn)升序排序，偶數(shù)實現(xiàn)降序排序。部分運行界面如圖所示。

（1）下列對象不具有 Caption 屬性的是

B

B

（單選，填字母：A．Form1/B．Text1/C．Label1）
（2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填入合適代碼。
（3）程序代碼中的加框處代碼有誤，請改正。
Dim n As Integer
Dim a（1 To 100）As Integer
Private Sub create_Click （　?。?br />Dim i As Integer
Randomize
n=Val（Text1．Text）
For i=1 To n
a（i）=Int（Rnd （　?。?45）*2+11
If ①

i Mod 2=0

i Mod 2=0

 Then a（i）=a（i）-1
List1．AddItem Str（a（i））
Next i
End Sub
Private Sub sort_Click （　?。?br />For i=1 To n\2
For j=1 To n-2*i Step 2
If ②

a（j）＞a（j+2）

a（j）＞a（j+2）

 Then
t=a（j）：a（j）=a（j+2）：a（j+2）=t
End If
Next j

k=c
For j=k+2 To n Step 2
If a（j）＞a（k）Then  ③

k=j

k=j

Next j
If k＜＞c Then
t=a（k）：a（k）=a（c）：a（c）=t
End If
Next i
For i=1 To n
List2．AddItem Str（a（i））
Next i
End Sub