17．【加試題】我省高中學(xué)生參加高考時(shí)，對于考生信息的核查已開始逐步推行驗(yàn)證身份證號是否正確的和考生信息是否在考生庫。對于身份證號的驗(yàn)證方法如下：我國的18位身份證號是由17位數(shù)字和1位校驗(yàn)碼組成的，排列順序從左至右依次為：6位數(shù)字地址碼，8位數(shù)字出生日期碼，3位數(shù)字順序碼（同一地區(qū)同年、同月、同日出生人的編號，奇數(shù)是男生，偶數(shù)是女性）和1位校驗(yàn)碼（0到10，10用X表示）。身份證號校驗(yàn)碼可以檢驗(yàn)身份證號是否有誤，身份證號的檢驗(yàn)碼計(jì)算方法如下表：
| 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 |
| 身份證號 | 3 | 3 | 2 | 5 | 2 | 2 | 6 | 1 | 9 | 9 | 9 | 0 | 1 | 0 | 1 | 0 | 0 | 1 |
| 加權(quán)因子 | 7 | 9 | 10 | 5 | 8 | 4 | 2 | 1 | 6 | 3 | 7 | 9 | 10 | 5 | 8 | 4 | 2 | |
| 積 | 21 | 27 | 20 | 25 | 16 | 24 | 2 | 9 | 54 | 27 | 0 | 9 | 0 | 5 | 0 | 0 | 2 | |
| 和 | 241 | | | | | | | | | | | | | | | | | |
| 整除11取余 | 10 | | | | | | | | | | | | | | | | | |
先將身份證號1到17位分別乘以它對應(yīng)的加權(quán)因了，然后再將17個積相加，再次得到的和整除11取余數(shù)，最后通過下表用余數(shù)得出對應(yīng)的校驗(yàn)碼。
| 余數(shù) | 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 |
| 校驗(yàn)碼 | 1 | 0 | X | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 |
驗(yàn)證考生信息是否在考生庫的方法如下：核查驗(yàn)證通過的身份證號，是否在參加本次考試的考生庫examinee。accdb的ksxx表中存在。
程序運(yùn)行時(shí)，在Txt_1中輸入待檢驗(yàn)的身份證號，在Lab_1中顯示驗(yàn)證的身份證號是否正確，
在Lab_2中顯示驗(yàn)證正確的身份證號是否在考生庫中。程序運(yùn)行界面如圖：
Dim w（1to 17）As Integer'存放加權(quán)因子
Dim y（1to 10）As String'存放驗(yàn)證碼
Dim sf As String'存放身份證號
Dim ks As Boolean'考生信息是否在考生庫
Private Sub Command1_Click（ ）
sf=Tex_1．Text
If
Then'①
Lab_1．Caption=“驗(yàn)證結(jié)果：正確的身份證號”
If ks=True Then
Lab_2．Caption=“正確的考生信息”
Else
Lab_2．Caption=“錯誤的考生信息”
End If
Else
Lab_1．Caption=“驗(yàn)證結(jié)果：錯誤的身份證號”
End If
End Sub
'yzsf函數(shù)用于驗(yàn)證身份證號是否正確
Function yzsf（sfzh As String ） As Boolean
Dim i As Integer,n As Integer
w（1）=7：w（2）=9：w（3）=10：w（4）=5：w（5）=8
w（6）=4：w（7）=2：w（8）=1：w（9）=6：w（10）=3
w（11）=7：w（12）=9：w（13）=10：w（14）=5：w（15）=8
w（16）=4：w（17）=2
y（0）=”1”：y（1）=”0”：y（2）=”X”：y（3）=”9”：y（4）=”8”
y（5）=”7”：y（6）=”6”：y（7）=”5”：y（8）=”4”：y（9）=”3”
y（10）=”2”
If Len（sfzh）=18Then
n=0
For i=1to 17
n=n+
②Next i
n=n mod 11
If Mid（sfzh,n,1）=y（n） Then
yzsf=True
Else
yzsf=Flase
End IF
Else
MsgBox（“請輸入18位身份證號”）
End IF
End Function
Private Sub Form_Load（ ?。?本過程用于驗(yàn)證考生是否在考生庫中
Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
Dim intSQL As Long
conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=“+App.Path+“\
③“
conn.Open
intSQL=“SELECT score FROM Integral“
Set rs.ActiveConnection=conn
rs.CursorType=adOpenStatic
rs.Open intSQL
'本過程其他語句略
End Sub
（1）加框處①有錯，應(yīng)改為
。
（2）②處應(yīng)填入的語句為
。
（3）③處應(yīng)填入的語句為
。
組卷：10引用：2難度：0.9
組卷：11引用：2難度：0.9
組卷：3引用：2難度：0.7