1. (2022高三下·浙江开学考) 小杜对某班技术成绩情况进行分析，先排序再分析，排序后女生在前，男生在后(该班级男女生都有，其中0表示女，1表示男) ，且男女生均按成绩降序排序，最后比对男生女生平均分情况。数组a中存储了n位学生的性别和成绩数据，其中奇数位置存储性别信息，偶数位置存储成绩信息。

编写VB程序实现上述功能，运行程序在列表框List1中显示排序前学生数据。单击“统计”按钮，在列表框List2中显示排序后的结果，并且在Label1中显示男生女生平均分比对结果。程序运行界面如15题图所示。

1. （1） 由程序代码可知，共需类对象。(填数字)
3. （2） 实现上述功能的部分VB程序如下，请在划线处填入合适的代码。

   

   Dim a(1 To 100) As Integer

   Const n = 50    ‘共50位同学

   Private Sub Comand1 Click)

       Dim sum As Integer， sum As Integer， m As Integer

       summ=0：sumw=0：m=0

       For i=

             k=i

             For j=i+1 To n

               If  or a(k*2-1)=a(2*j-1) And a(j*2)>a(k*2) Then k=j

             Next j

             If k<>i Then

                 t1=a(i *2- 1)： a(i *2- 1)=a(k*2- 1)： a(k*2-1)=t

                t2 = a(i * 2)： a(i*2)=a(k*2)：a(k*2)=t2

            End If

            summ = summ + a(2*i-1)*a(2*i)

           sumw = sumw +

           m=

       Next i

       List2. AddItem “性别”“+”“成绩"

       For i=1 To n

            List2. AddItem Str(a(i *2- 1)) +“”+ Str(a(i * 2))

       Next i

       If summ/m>sumw/(n-m)Then

           Label1. Caption = "男生平均分高”

       Elself summ/m<sumw/(n-m)Then

            Label1. Caption =“女生平均分高”

       Else

            Label1. Caption =“男生女生平均分相同”

       End If

   End Sub

   Private Sub Form Load()

   ‘从数据库中读取数据，存在数组a中，数组元素a(1)和a(2)分别存储第一个学生的性别和成绩：数组元素a(3)和a(4)分别存储第二个学生的性别和成绩：以次类推存储其他学生的相关数据：将原始数据显示在List1中，代码略。

   End Sub

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