17．【加試題】居民身份證號(hào)碼由十七位數(shù)字本體碼和一位數(shù)字校驗(yàn)碼組成．從左至右依次為：六位地址碼，八位出生日期碼，三位順序碼和一位校驗(yàn)碼．校驗(yàn)碼生成步驟如下：
①把身份證前 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 |
②根據(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)通過，否則校驗(yàn)失?。?br />某人根據(jù)上述原理設(shè)計(jì)了一個(gè)身份證校驗(yàn)VB程序，功能如下：程序啟動(dòng)時(shí)從數(shù)據(jù)庫(kù)student.jye.ai中讀入全校學(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)回答下列問題：
（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（1To max） As String,xm（1To max） As String
'數(shù)組sfzh、xm分別存放學(xué)生身份證號(hào)、姓名
Dim bj（1To max） As Integer,flag（1To max） As Boolean
'數(shù)組bj、flag分別存放學(xué)生班級(jí)、身份證校驗(yàn)結(jié)果
Dim cw（1To 15）As Integer'數(shù)組cw存放各班身份證號(hào)出錯(cuò)人數(shù)
Function check（x As String） As Boolean
'本函數(shù)功能：校驗(yàn)身份證號(hào)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 （ ）
'本過程從數(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.jye.ai.12.0；data source=“+App.Path+“\student.jye.ai“
conn.Open
Set rs.ActiveConnection=conn
rs.Open“select from stu“
'本過程其它語(yǔ)句略，學(xué)生人數(shù)存變量n,數(shù)組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））+“個(gè)身份證號(hào)錯(cuò)誤“
List2．AddItem““
End If
Next i
End Sub.
組卷：6引用：1難度：0.9
組卷：15引用：5難度：0.9
