1. 某校为校文艺汇演选拔歌曲类和舞蹈类节目，根据初赛票数（每类节目票数不存在着相同数）进行挑选。要求是：每类节目按票数从高到低挑选最高的2个；同类节目按票数从大到小排列输出。编写VB程序，实现上述选拔功能。运行程序，在列表框list1中显示初赛成绩（其中类型1表示舞蹈类，类型2表示歌曲类），单击“选拔”按钮Command1，在列表框list2中输出结果。程序运行界面如图所示。

请回答下列问题：

1. （1） 若要清空列表框List1，能实现该功能的语句是（单选，填字母：A .List1.Caption= “” / B .List1.Text = “” /C .List1.Clear）。
3. （2） 实现上述功能的VB程序如下，请在划线处填入合适的代码。

   Dim ty(1 To 100) As Integer Dim name(1 To 100) As String Dim cj(1 To 100) As Integer Dim n As Integer

   Private Sub Form_Load()

   '本过程读取类型、名称和票数的数据分别存储在数组 ty，name和cj中，

   '并在List1中显示，代码略

   End Sub

   Private Sub Command1_Click( )

       Dim i As Integer, j As Integer, m As Integer,t1 As Integer, t2 As String

       i = 1

       Do While i <= n – 1          '先将类型1的节目进行排序

           For j = n To i + 1 Step -1

               If ty(j) = 1 Then

                   IfThen

                       t1 = ty(j): ty(j) = ty(j - 1): ty(j - 1) = t1

                       t1 = cj(j): cj(j) = cj(j - 1): cj(j - 1) = t1

                       t2 = name(j): name(j) = name(j - 1): name(j - 1) = t2

                   End If

               End If

           Next j

           IfThen m = m + 1

           i = i + 1

       Loop

       For i = 1 To 2

           List2.AddItem Str(ty(i)) + name(i) + " " + Str(cj(i))

       Next i

       For i =

           For j = n To i + 1 Step -1

               IfThen

                   t1 = ty(j): ty(j) = ty(j - 1): ty(j - 1) = t1

                   t1 = cj(j): cj(j) = cj(j - 1): cj(j - 1) = t1

                   t2 = name(j): name(j) = name(j - 1): name(j - 1) = t2

               End If

           Next j

           List2.AddItem Str(ty(j)) + name(j) + " " + Str(cj(j))

       Next i

   End Sub

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