居民身份證號碼由十七位數字本體碼和一位數字校驗碼組成．從左至右依次為：六位地址碼，八位出生日期碼，三位順序碼和一位校驗碼．校驗碼生成步驟如下：
（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）中提取的校驗碼和身份證最后一位相同，則校驗通過，否則校驗失?。橙烁鶕鲜鲈碓O計了一個身份證校驗VB程序，功能如下：程序啟動時從數據庫student.jye.ai中讀入全校學生身份證數據（全校共15個班級），并在列表框List1中顯示，單擊“校驗”按鈕Command1，在列表框List2中輸出各班身份證號出錯學生的信息和出錯人數，若某班無出錯學生，則不顯示．程序界面如圖所示（身份證號、姓名中的部分內容不顯示）．

實現(xiàn)上述功能的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

．