我省高中學(xué)生參加高考時(shí)，對(duì)于考生信息的核查已開(kāi)始逐步推行驗(yàn)證身份證號(hào)是否正確的和考生信息是否在考生庫(kù)．對(duì)于身份證號(hào)的驗(yàn)證方法如下：我國(guó)的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ù)，最后通過(guò)下表用余數(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)證考生信息是否在考生庫(kù)的方法如下：核查驗(yàn)證通過(guò)的身份證號(hào)，是否在參加本次考試的考生庫(kù)examinee.accdb的ksxx表中存在．程序運(yùn)行時(shí)，在Txt_1中輸入待檢驗(yàn)的身份證號(hào)，在Lab_1中顯示驗(yàn)證的身份證號(hào)是否正確，在Lab_2中顯示驗(yàn)證正確的身份證號(hào)是否在考生庫(kù)中．程序運(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'考生信息是否在考生庫(kù)
Private Sub Command1_Click （ ）
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 （ ?。?本過(guò)程用于驗(yàn)證考生是否在考生庫(kù)中
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
'本過(guò)程其他語(yǔ)句略
End Sub
（1）加框處①有錯(cuò)，應(yīng)改為
yzsf（sf）=True
yzsf（sf）=True
．
（2）②處應(yīng)填入的語(yǔ)句為
Val（Mid（sfzh,i,1））*w（i）
Val（Mid（sfzh,i,1））*w（i）
．
（3）③處應(yīng)填入的語(yǔ)句為
examinee.accdb
examinee.accdb
．
