1. (2021高三上·浙江月考) 某学校为增强学生体质，督促学生进行必要的体育锻炼，每学年都会举行一次新生体能测试，在高一年级每班随机抽取2位学生参加体测并要求全部达标。高一年级学生基本信息存储于相应的数据库文件中，班级总数为n，每班45名学生。抽选时以学生学号信息为依据（学号为8位数，前4位数字表示年级，5、6两位数表示班级，7、8两位数表示学号），并将抽选结果按照班级和学号升序排列输出。

根据上述要求编写VB程序，功能如下：读取高一年级n个班级学生学号信息，显示在列表框List1中。程序运行时，单击“抽取”按钮Command1，在列表框List2中显示每班被抽取中的两名学生学号。程序运行界面如图所示。

1. （1） 在VB表达式List2.AddItems(i)中，List2、AddItem依次表示（单选，填字母：A .对象名、属性名/B .对象名、事件名/C .对象名、方法名）
3. （2） 实现上述功能的VB程序如下，请在划线处填入合适的代码。

   Constn=8

   Dim a(1 To 500) As String

   Private Sub Form_Load()

   ‘读取数据库中学生学号信息并存储于数组a中，过程略。

   EndSub

   Private Sub Command1_Click( )

     Dim s(1 To 8) As String

     Dim flag(1 To 500) As Integer

     Dim b(1 To n) As Integer

     Dim w As Integer, t As Integer, i As Integer, j As Integer

     Dim x As String

     For i=1 To 45*n

       flag(i)=0

     Next i

     For i=1 To n

       b(i)=0

     Next i

     w=0

     For i=1 To n

       t=

       If flag(t)=1 Then

         i=i-1

       ElseIf b(i)<2 Then w=w+1

        

         b(i)=b(i)+1

         flag(t)=1

         If w Mod 2=1 Then i=i-1

       End If

     Next i

     For i=1 To 2*n-1     '排序并输出被抽中学生学号

       If  Then x=s(i+1): s(i+1)=s(i):s(i)=x

       End If

       For j=i To i+1

         List2.AddItem s(j)

       Next j

     Next i

   End Sub

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