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

请回答下列问题：

1. （1） 下列对象中，无 Caption属性的是（单选，填字母：A .Command1 / B .Text1/C . Form1）。
3. （2） 实现上述功能的VB程序如下，请在划线处填入合适的代码。

   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 = ""

      

       Do While i <= Len(Text1.Text)

           ch = Mid(Text1.Text, i, 1)

           If ch = "," Then

               n = n + 1

               

               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  Then

                   t = b(j): b(j) = b(j - 1): b(j - 1) = t

               End If

           Next j

       Next i

       For i = 1 To n

           

           Label1.Caption = Label1.Caption + Str(b(i))

           Label2.Caption = Label2.Caption + Str(c(i))

       Next i

   End Sub

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