17．【加試題】居民身份證號碼由十七位數(shù)字本體碼和一位數(shù)字校驗碼組成．從左至右依次為：六位地址碼，八位出生日期碼，三位順序碼和一位校驗碼．校驗碼生成步驟如下：
①把身份證前 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做取余運算得到序號，再根據(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）中提取的校驗碼和身份證號最后一位相同，則校驗通過，否則校驗失?。?br />某人根據(jù)上述原理設(shè)計了一個身份證校驗VB程序，功能如下：程序啟動時從數(shù)據(jù)庫student.jye.ai中讀入全校學(xué)生身份證數(shù)據(jù)（全校共15個班級），并在列表框List1中顯示，單擊“校驗”按鈕Command1，在列表框List2中輸出各班身份證號出錯學(xué)生的信息和出錯人數(shù)，若某班無出錯學(xué)生，則不顯示．程序界面如圖所示．實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）某人身份證號的前17位為“33900520000101007”，根據(jù)上述步驟可計算出該身份證號的第18位校驗碼是
．
（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é)生班級、身份證校驗結(jié)果
Dim cw（1To 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（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.
組卷：6引用：1難度：0.9
組卷：15引用：5難度：0.9
