居民身份證號碼由十七位數(shù)字本體碼和一位數(shù)字校驗碼組成．從左至右依次為：六位地址碼，八位出生日期碼，三位順序碼和一位校驗碼．校驗碼生成步驟如下：
（1）把身份證前17位的每個數(shù)字和加權(quán)因子相乘并累加求和，再與11做取余運算得到序號，即序號≡∑（ai×Wi）Mod11（i≡2～18）；i表示號碼字符的位置，身份證號左邊開始第1位的位置為18，最后一位的位置為1，ai表示第i位置上的號碼字符的值；Wi表示第i位置上的加權(quán)因子，通過公式w（i）=2^（i-1）Mod11計算得到．
（2）根據(jù)步驟（1）得到的序號提取校驗碼字符．對應(yīng)關(guān)系如下，如：0對應(yīng)校驗碼“1”．

余數(shù)	0	1	2	3	4	5	6	7	8	9	10
校驗碼	1	0	X	9	8	7	6	5	4	3	2

若步驟（2）中提取的校驗碼和身份證最后一位相同，則校驗通過，否則校驗失?。橙烁鶕?jù)上述原理設(shè)計了一個身份證校驗VB程序，功能如下：程序啟動時從數(shù)據(jù)庫student.jye.ai中讀入全校學生身份證數(shù)據(jù)（全校共15個班級），并在列表框List1中顯示，單擊“校驗”按鈕Command1，在列表框List2中輸出各班身份證號出錯學生的信息和出錯人數(shù)，若某班無出錯學生，則不顯示．程序界面如圖所示（身份證號、姓名中的部分內(nèi)容不顯示）．

實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）某人身份證號的前17位為“33062119910206004”，根據(jù)步驟（1）中的公式∑（ai×Wi）Mod11計算可得序號為2，則該身份證最后一位字符應(yīng)該是

X

X

．
（2）分析程序，可知存放學生身份證信息的數(shù)據(jù)表為

stu_-info

stu_-info

．
（3）請在畫線處填入合適的代碼．
Const　max=10 00
Dim n　As　Integer'存放學生人數(shù)
Dim　sfzh（1 To  max）　As　String,
xm（1 To max）　As　String
'數(shù)組sfzh、xm分別存放學生身份證號、姓名
Dim　bj（1 To max）　As   Integer,flash（1 To max）　As  Boolean
'數(shù)組bj、flash分別存放學生班級、身份證校驗結(jié)果
Dim　cw（1 To 15）As Integer'數(shù)組cw存放各班身份證號出錯人數(shù)
Function  check（x  As　String ） As Boolean'本函數(shù)功能：校驗身份證號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（　?。?br />'本過程從數(shù)據(jù)庫中讀入指定數(shù)據(jù)到數(shù)組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“
'本過程其他語句略，學生人數(shù)存變量n,數(shù)組cw各元素初值置為0
End　Sub
Private　Sub　Command1_Click （　?。?br />    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）①處應(yīng)填

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

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

；
（2）②處應(yīng)填

check（sfzh（i）=True）

check（sfzh（i）=True）

；
（3）③處應(yīng)填

cw（i）=cw（i）+1

cw（i）=cw（i）+1

．