17．【加試題】居民身份證號(hào)碼由十七位數(shù)字本體碼和一位數(shù)字校驗(yàn)碼組成。從左至右依次為：六位地址碼，八位出生日期碼，三位順序碼和一位校驗(yàn)碼。校驗(yàn)碼生成步驟如下：
（1）把身份證前 17 位的每個(gè)數(shù)字和加權(quán)系數(shù)相乘并累加求和。身份證號(hào)碼前17位數(shù)的加權(quán)系數(shù)見下表：
| 身份證號(hào)位數(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 |
（2）根據(jù)步驟（1）求得的和值，與11做取余運(yùn)算得到序號(hào)，再根據(jù)序號(hào)提取校驗(yàn)碼字符。如：所得和值除以11的余數(shù)為“0”，則對(duì)應(yīng)的校驗(yàn)碼為“1”。如下表：
| 序號(hào) |
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)碼和身份證號(hào)最后一位相同，則校驗(yàn)通過(guò)，否則校驗(yàn)失敗。
某人根據(jù)上述原理設(shè)計(jì)了一個(gè)身份證校驗(yàn)VB程序，功能如下：程序啟動(dòng)時(shí)從數(shù)據(jù)庫(kù)student。accdb中讀入全校學(xué)生身份證數(shù)據(jù)（全校共15個(gè)班級(jí)），并在列表框List1中顯示，單擊“校驗(yàn)”按鈕Command1，在列表框List2中輸出各班身份證號(hào)出錯(cuò)學(xué)生的信息和出錯(cuò)人數(shù)，若某班無(wú)出錯(cuò)學(xué)生，則不顯示。程序界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)回答下列問(wèn)題：
（1）某人身份證號(hào)的前17位為“33900520000101007”，根據(jù)上述步驟可計(jì)算出該身份證號(hào)的第18位校驗(yàn)碼是
。
（2）請(qǐng)?jiān)跈M線處填上合適的代碼。
Const max=1000
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,flag（1 To max） As Boolean
'數(shù)組bj、flag分別存放學(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）Mod 11
Next i
For i=2 To 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 />'本過(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=“provider=microsoft.ace.oledb.12.0；data source=“+App.Path+“\student.accdb“
conn.Open
Set rs.ActiveConnection=conn
rs.Open“select*from stu“
'本過(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 check（sfzh（i）） 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 flag（j）=False Then
② List2．AddItem sfzh（j）+““+xm（j）
End If
Next j
If cw（i）＞0 Then
List2．AddItem Str（i）+“班共有以上“+Str（cw（i））+“個(gè)身份證號(hào)錯(cuò)誤“
List2．AddItem““
End If
Next i
End Sub。
