17.【加试题】我省高中学生参加高考时,对于考生信息的核查已开始逐步推行验证身份证号是否正确的和考生信息是否在考生库。对于身份证号的验证方法如下:我国的18位身份证号是由17位数字和1位校验码组成的,排列顺序从左至右依次为:6位数字地址码,8位数字出生日期码,3位数字顺序码(同一地区同年、同月、同日出生人的编号,奇数是男生,偶数是女性)和1位校验码(0到10,10用X表示)。身份证号校验码可以检验身份证号是否有误,身份证号的检验码计算方法如下表:
| 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 |
加权因子 | 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位分别乘以它对应的加权因了,然后再将17个积相加,再次得到的和整除11取余数,最后通过下表用余数得出对应的校验码。
余数 | 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 |
校验码 | 1 | 0 | X | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 |
验证考生信息是否在考生库的方法如下:核查验证通过的身份证号,是否在参加本次考试的考生库examinee。accdb的ksxx表中存在。
程序运行时,在Txt_1中输入待检验的身份证号,在Lab_1中显示验证的身份证号是否正确,
在Lab_2中显示验证正确的身份证号是否在考生库中。程序运行界面如图:

Dim w(1to 17)As Integer'存放加权因子
Dim y(1to 10)As String'存放验证码
Dim sf As String'存放身份证号
Dim ks As Boolean'考生信息是否在考生库
Private Sub Command1_Click( )
sf=Tex_1.Text
If

Then'①
Lab_1.Caption=“验证结果:正确的身份证号”
If ks=True Then
Lab_2.Caption=“正确的考生信息”
Else
Lab_2.Caption=“错误的考生信息”
End If
Else
Lab_1.Caption=“验证结果:错误的身份证号”
End If
End Sub
'yzsf函数用于验证身份证号是否正确
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( )'本过程用于验证考生是否在考生库中
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)加框处①有错,应改为
。
(2)②处应填入的语句为
。
(3)③处应填入的语句为
。