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

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

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

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

X

X

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

stu_-info

stu_-info

．
（3）請(qǐng)?jiān)诋?huà)線處填入合適的代碼．
Const　max=10 00
Dim n　As　Integer'存放學(xué)生人數(shù)
Dim　sfzh（1 To  max）　As　String,
xm（1 To max）　As　String
'數(shù)組sfzh、xm分別存放學(xué)生身份證號(hào)、姓名
Dim　bj（1 To max）　As   Integer,flash（1 To max）　As  Boolean
'數(shù)組bj、flash分別存放學(xué)生班級(jí)、身份證校驗(yàn)結(jié)果
Dim　cw（1 To 15）As Integer'數(shù)組cw存放各班身份證號(hào)出錯(cuò)人數(shù)
Function  check（x  As　String ） As Boolean'本函數(shù)功能：校驗(yàn)身份證號(hào)x,若
'校驗(yàn)通過(guò)返回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（　　）
'本過(guò)程從數(shù)據(jù)庫(kù)中讀入指定數(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“
'本過(guò)程其他語(yǔ)句略，學(xué)生人數(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））+“個(gè)身份證號(hào)錯(cuò)誤“
             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

．