【加試題】我省高中學生參加高考時，對于考生信息的核查已開始逐步推行驗證身份證號是否正確的和考生信息是否在考生庫。對于身份證號的驗證方法如下：我國的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）加框處①有錯，應改為

yzsf（sf）=True

yzsf（sf）=True

。
（2）②處應填入的語句為

Val（Mid（sf,i,i））*w（i）

Val（Mid（sf,i,i））*w（i）

。
（3）③處應填入的語句為

examinee.jye.ai。

examinee.jye.ai。

。