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

身份證號位數	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17
加權系數	7	9	10	5	8	4	2	1	6	3	7	9	10	5	8	4	2

②根據步驟（1）求得的和值，與11做取余運算得到序號，再根據序號提取校驗碼字符．如：所得和值除以11的余數為“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位為“33900520000101007”，根據上述步驟可計算出該身份證號的第18位校驗碼是

9

9

．
（2）請在橫線處填上合適的代碼．
Const max=1000
Dim n As Integer'存放學生人數
Dim sfzh（1To max） As String,xm（1To max） As String
'數組sfzh、xm分別存放學生身份證號、姓名
Dim bj（1To max） As Integer,flag（1To max） As Boolean
'數組bj、flag分別存放學生班級、身份證校驗結果
Dim cw（1To 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（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 （　　）
'本過程從數據庫中讀入指定數據到數組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“
'本過程其它語句略，學生人數存變量n,數組cw各元素初值置為0
End Sub
Private Sub Command1_Click （　　）
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.