【加試題】居民身份證號碼由十七位數(shù)字本體碼和一位數(shù)字校驗(yàn)碼組成．從左至右依次為：六位地址碼，八位出生日期碼，三位順序碼和一位校驗(yàn)碼．校驗(yàn)碼生成步驟如下：
①把身份證前 17 位的每個數(shù)字和加權(quán)系數(shù)相乘并累加求和．身份證號碼前17位數(shù)的加權(quán)系數(shù)見下表：

身份證號位數(shù)	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17
加權(quán)系數(shù)	7	9	10	5	8	4	2	1	6	3	7	9	10	5	8	4	2

②根據(jù)步驟（1）求得的和值，與11做取余運(yùn)算得到序號，再根據(jù)序號提取校驗(yàn)碼字符．如：所得和值除以11的余數(shù)為“0”，則對應(yīng)的校驗(yàn)碼為“1”．如下表：

序號	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)通過，否則校驗(yàn)失敗．
某人根據(jù)上述原理設(shè)計了一個身份證校驗(yàn)VB程序，功能如下：程序啟動時從數(shù)據(jù)庫student.jye.ai中讀入全校學(xué)生身份證數(shù)據(jù)（全校共15個班級），并在列表框List1中顯示，單擊“校驗(yàn)”按鈕Command1，在列表框List2中輸出各班身份證號出錯學(xué)生的信息和出錯人數(shù)，若某班無出錯學(xué)生，則不顯示．程序界面如圖所示．實(shí)現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）某人身份證號的前17位為“33900520000101007”，根據(jù)上述步驟可計算出該身份證號的第18位校驗(yàn)碼是

9

9

．
（2）請在橫線處填上合適的代碼．
Const max=1000
Dim n As Integer'存放學(xué)生人數(shù)
Dim sfzh（1To max） As String,xm（1To max） As String
'數(shù)組sfzh、xm分別存放學(xué)生身份證號、姓名
Dim bj（1To max） As Integer,flag（1To max） As Boolean
'數(shù)組bj、flag分別存放學(xué)生班級、身份證校驗(yàn)結(jié)果
Dim cw（1To 15）As Integer'數(shù)組cw存放各班身份證號出錯人數(shù)
Function check（x As String） As Boolean
'本函數(shù)功能：校驗(yàn)身份證號x,若校驗(yàn)通過返回True；否則返回False
Dim i As Integer,sum As Integer,xh As Integer,jym As String
Dim a（1To 18）As Integer,w（1To 18）As Integer
jym=“10X98765432“：sum=0
For i=18To 2Step-1
a（i）=Val（Mid（x,19-i,1））
Next i
For i=18To 1Step-1
w（i）=2  （i-1）Mod 11
Next i
For i=2To 18
sum=sum+a（i）  w（i）
Next i
xh=sum Mod 11
If①_=Mid（x,18，1）Then check=True Else check=False
End Function
Private Sub Form_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=“provider=microsoft.ace.jye.ai.12.0；data source=“+App.Path+“\student.jye.ai“
conn.Open
Set rs.ActiveConnection=conn
rs.Open“select  from stu“
'本過程其它語句略，學(xué)生人數(shù)存變量n,數(shù)組cw各元素初值置為0
End Sub
Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer
For i=1To n
If check（sfzh（i））Then flag（i）=True Else flag（i）=False
Next i
For i=1To 15
For j=1To n
If  bj（j）=i And flag（j）=False Then
②_
List2．AddItem sfzh（j）+““+xm（j）
End If
Next j
If cw（i）＞0Then
List2．AddItem Str（i）+“班共有以上“+Str（cw（i））+“個身份證號錯誤“
List2．AddItem““
End If
Next i
End Sub.