【加試題】居民身份證號碼由十七位數(shù)字本體碼和一位數(shù)字校驗碼組成。從左至右依次為：六位地址碼，八位出生日期碼，三位順序碼和一位校驗碼。校驗碼生成步驟如下：
（1）把身份證前 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 |
（2）根據(jù)步驟（1）求得的和值，與11做取余運算得到序號，再根據(jù)序號提取校驗碼字符。如：所得和值除以11的余數(shù)為“0”，則對應(yīng)的校驗碼為“1”。如下表：
| 序號 |
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。accdb中讀入全校學(xué)生身份證數(shù)據(jù)（全校共15個班級），并在列表框List1中顯示，單擊“校驗”按鈕Command1，在列表框List2中輸出各班身份證號出錯學(xué)生的信息和出錯人數(shù)，若某班無出錯學(xué)生，則不顯示。程序界面如圖所示。
實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）某人身份證號的前17位為“33900520000101007”，根據(jù)上述步驟可計算出該身份證號的第18位校驗碼是
3
3
。
（2）請在橫線處填上合適的代碼。
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é)生身份證號、姓名
Dim bj（1 To max） As Integer,flag（1 To max） As Boolean
'數(shù)組bj、flag分別存放學(xué)生班級、身份證校驗結(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）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 />'本過程從數(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.oledb.12.0；data source=“+App.Path+“\student.accdb“
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=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））+“個身份證號錯誤“
List2．AddItem““
End If
Next i
End Sub。
