索引排序是近年来各类模拟考试中的新宠，而“索引排序”是和“物理排序”相对应的概念，所谓物理排序就是改变数组元素存储的物理位置，即直接对数组进行排序；而索引排序通过增加一个索引数组来存储各数组元素的下标，在排序时不需要对原数组进行排序，只需对索引数组排序即可。小明为了探究索引排序，编写VB程序演示索引排序算法，功能如下：在文本框Text1中输入各个数据（用“，”隔开和结尾），单击“读取”按钮Command1，将各个数据依次存储到数组a中；单击“排序”按钮Command2，则对索引数组b重新排列，使得数组a中的元素按升序存储到数组c中，分别将处理后的索引数组b和有序数组c显示在标签Label1和Label2中。部分运行界面如图所示。

请回答下列问题：
（1）下列对象中，无 Caption属性的是

B

B

（单选，填字母：A.Command1/B.Text1/C.Form1）。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
①

i=1

i=1

②

a（n）=Val（t）

a（n）=Val（t）

③

c（i）=a（b（i））

c（i）=a（b（i））

（3）程序加框处代码有错，请改正。
改正：

a（b（j））＜a（b（j-1））

a（b（j））＜a（b（j-1））

Dim n As Integer
Dim a（1 To 20）As Integer
Dim b（1 To 20）As Integer
Dim c（1 To 20）As Integer
Private Sub Command1_Click

（　　）

（　　）

Dim i As Integer,t As String,ch As String
n=0：t=““
①

i=1

i=1

Do While i＜=Len（Text1.Text）
ch=Mid（Text1.Text,i,1）
If ch=“，“Then
n=n+1
②

a（n）=Val（t）

a（n）=Val（t）

b（n）=n
t=““
Else
t=t+ch
End If
i=i+1
Loop
End Sub
Private Sub Command2_Click

（　　）

（　　）

Dim i As Integer,j As Integer,t As Integer
For i=1 To n-1
For j=n To i+1 Step-1
If    a（j）＞a（j-1）Then
t=b（j）：b（j）=b（j-1）：b（j-1）=t
End If
Next j
Next i
For i=1 To n
③

c（i）=a（b（i））

c（i）=a（b（i））

Label1.Caption=Label1.Caption+Str（b（i））
Label2.Caption=Label2.Caption+Str（c（i））
Next i
End Sub