居民身份证号码由十七位数字本体码和一位数字校验码组成．从左至右依次为：六位地址码，八位出生日期码，三位顺序码和一位校验码．校验码生成步骤如下：
（1）把身份证前17位的每个数字和加权因子相乘并累加求和，再与11做取余运算得到序号，即序号≡∑（ai×Wi）Mod11（i≡2～18）；i表示号码字符的位置，身份证号左边开始第1位的位置为18，最后一位的位置为1，ai表示第i位置上的号码字符的值；Wi表示第i位置上的加权因子，通过公式w（i）=2^（i-1）Mod11计算得到．
（2）根据步骤（1）得到的序号提取校验码字符．对应关系如下，如：0对应校验码“1”．

余数	0	1	2	3	4	5	6	7	8	9	10
校验码	1	0	X	9	8	7	6	5	4	3	2

若步骤（2）中提取的校验码和身份证最后一位相同，则校验通过，否则校验失败．某人根据上述原理设计了一个身份证校验VB程序，功能如下：程序启动时从数据库student.jye.ai中读入全校学生身份证数据（全校共15个班级），并在列表框List1中显示，单击“校验”按钮Command1，在列表框List2中输出各班身份证号出错学生的信息和出错人数，若某班无出错学生，则不显示．程序界面如图所示（身份证号、姓名中的部分内容不显示）．

实现上述功能的VB程序如下，请回答下列问题：
（1）某人身份证号的前17位为“33062119910206004”，根据步骤（1）中的公式∑（ai×Wi）Mod11计算可得序号为2，则该身份证最后一位字符应该是

X

X

．
（2）分析程序，可知存放学生身份证信息的数据表为

stu_-info

stu_-info

．
（3）请在画线处填入合适的代码．
Const　max=10 00
Dim n　As　Integer'存放学生人数
Dim　sfzh（1 To  max）　As　String,
xm（1 To max）　As　String
'数组sfzh、xm分别存放学生身份证号、姓名
Dim　bj（1 To max）　As   Integer,flash（1 To max）　As  Boolean
'数组bj、flash分别存放学生班级、身份证校验结果
Dim　cw（1 To 15）As Integer'数组cw存放各班身份证号出错人数
Function  check（x  As　String ） As Boolean'本函数功能：校验身份证号x,若
'校验通过返回True；否则返回False
     Dim  i　As　Integer,sum　As　Integer,xh　As　Integer,jym  As　String
     Dim a（1 To  18）As　Integer,w（1 To 18）As　Integer
     jym=“10X98765432“：sum=0
     For  i=18 To 2 Step-1
         a（i）=Val（Mid（x,19-i,1））
     Next i
     For　i=18 To 1 Step-1
         w（i）=2^（i-1）Mod11
      Next i
      For　i=2 To  18
          sum=sum+a（i）*w（i）
       Next i
       xh=sum  Mod  11
       If

①

①

Then  check=True  Else  check=False
 End  Function
Private　Sub　From_-Load（　　）
'本过程从数据库中读入指定数据到数组sfzh、xm、bj,并在List1中显示
     Dim　conn　As　New　ADODB．Connection
     Dim    rs　As　New　ADODB．Recordset
     conn.ConnectionString=“provide=microsoft.ace.jye.ai.12.0；data
source=“+App.Path+“\student.jye.ai“
     conn.Open
     Set　rs.ActiveConnection=conn
      rs.Open“select*from stu_-info“
'本过程其他语句略，学生人数存变量n,数组cw各元素初值置为0
End　Sub
Private　Sub　Command1_Click （　　）
    Dim i　As　Integer,j　As　Integer
     For i=1 To n
       If

②

②

Then  flag（i）=True Else  flag（i）=False
     Next  i
     For i=1 To 15
        For j=1 To n
            If  bj（j）=i  And  flash（j）=Flash  Then

③

③

                 Lise2．AddItem sfzh（j）+““+xm（j）
             EndIf
        Next j
        If  cw（i）＞0  Then
             Lise2．AddItem  Str（i）+“班共有以上“+Str（cw（i））+“个身份证号错误“
             Lise2．AddItem““
         EndIf
     Next  i
End  Sub
（1）①处应填

Mid（jym,xh+1，1）=Mid（x,18，1）

Mid（jym,xh+1，1）=Mid（x,18，1）

；
（2）②处应填

check（sfzh（i）=True）

check（sfzh（i）=True）

；
（3）③处应填

cw（i）=cw（i）+1

cw（i）=cw（i）+1

．