1. 某学校要组建年级学生会，共有cla个班级，num个人报名，每班报名人数大于等于1人，招募n个人(其中n>cla)，录取规则如下：每班必须有一人录用(取综合评分最高)，剩余人数按报名学生的综合评分由高到低录取。加载原始报名数据在List1中显示，在Text1中输入招募人数，将录取结果在List2中显示。实现上述功能的VB程序如下：

1. （1） 如上图所示，窗体中共有类对象。
3. （2） 请在下方程序代码中划线处填入合适的代码。

   Dim bj(1 To 100) As Integer, xm(1 To 100) As String, score(0 To 100) As Integer

   Dim flag(1 To 100) As Boolean, p(1 To 100) As Integer, num As Integer, cla As Integer

   Private Sub Form_ Load( )

     '加载学生报名数据班级、姓名、分数，分别存储到数组bj，xm，score，并在列表框List1中输出，班级总数为cla个，报名总人数为num，代码略

   End Sub

   Private Sub Command1_ Click()

       Dim i, j, n As Integer

       Dim b(1 To 15) As Integer

       n = Val(Text1.Text)

       For i=1 To cla     '每班1人录用

           Max= 0

           For j= 1 To num

               If  Then Max = score()：t= j

           Next j

           flag(t) = True

       Next i

       t= 1

       For i= 1 To num

           If Not flag(i) Then p(t)= i：t=t+ 1

       Next i

       For i=

           For j=1 To 2 Step-1

               If score(p(- 1)) < score(p(j)) Then t=p(j): p(j)= p(- 1): p(j-1)=t

           Next j

       Next i

       For i=1 To n-cla       '剩余人数录取

           flag(p(i)) = True

       Next i

       For i= 1 To num

           If  Then List2.AddItem Str(bj(i)) + xm(i) + Str(score(i))

       Next i

   End Sub