我省高中學(xué)生參加高考時(shí)，對(duì)于考生信息的核查已開始逐步推行驗(yàn)證身份證號(hào)是否正確的和考生信息是否在考生庫．對(duì)于身份證號(hào)的驗(yàn)證方法如下：我國的18位身份證號(hào)是由17位數(shù)字和1位校驗(yàn)碼組成的，排列順序從左至右依次為：6位數(shù)字地址碼，8位數(shù)字出生日期碼，3位數(shù)字順序碼（同一地區(qū)同年、同月、同日出生人的編號(hào)，奇數(shù)是男生，偶數(shù)是女性）和1位校驗(yàn)碼（0到10，10用X表示）．身份證號(hào)校驗(yàn)碼可以檢驗(yàn)身份證號(hào)是否有誤，身份證號(hào)的檢驗(yàn)碼計(jì)算方法如下表：

	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18
身份證號(hào)	3	3	2	5	2	2	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

先將身份證號(hào)1到17位分別乘以它對(duì)應(yīng)的加權(quán)因了，然后再將17個(gè)積相加，再次得到的和整除11取余數(shù)，最后通過下表用余數(shù)得出對(duì)應(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)證通過的身份證號(hào)，是否在參加本次考試的考生庫examinee.accdb的ksxx表中存在．程序運(yùn)行時(shí)，在Txt_1中輸入待檢驗(yàn)的身份證號(hào)，在Lab_1中顯示驗(yàn)證的身份證號(hào)是否正確，在Lab_2中顯示驗(yàn)證正確的身份證號(hào)是否在考生庫中．程序運(yùn)行界面如圖：

Dim w（1to 17）As Integer'存放加權(quán)因子
Dim y（1to 10）As String'存放驗(yàn)證碼
Dim sf As String'存放身份證號(hào)
Dim ks As Boolean'考生信息是否在考生庫
Private Sub Command1_Click （　?。?br />sf=Tex_1．Text
If yzsf（sf）=False Then'①
Lab_1．Caption=“驗(yàn)證結(jié)果：正確的身份證號(hào)”
If ks=True Then
Lab_2．Caption=“正確的考生信息”
Else
Lab_2．Caption=“錯(cuò)誤的考生信息”
End If
Else
Lab_1．Caption=“驗(yàn)證結(jié)果：錯(cuò)誤的身份證號(hào)”
End If
End Sub
'yzsf函數(shù)用于驗(yàn)證身份證號(hào)是否正確
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）=18 Then
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（“請(qǐng)輸入18位身份證號(hào)”）
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）加框處①有錯(cuò)，應(yīng)改為

yzsf（sf）=True

yzsf（sf）=True

．
（2）②處應(yīng)填入的語句為

Val（Mid（sfzh,i,1））*w（i）

Val（Mid（sfzh,i,1））*w（i）

．
（3）③處應(yīng)填入的語句為

examinee.jye.ai

examinee.jye.ai

．