公民身份號碼是特征組合碼,由十七位數(shù)字本體碼和一位校驗碼組成.排列 順序從左至右依次為:六位數(shù)字地址碼,八位數(shù)字出生日期碼,三位數(shù)字順序碼和一位數(shù)字 校驗碼.數(shù)字校驗碼的計算過程如下三步所示:
①對身份證號碼的前 17 位數(shù)字的權(quán)求和
s=Sum(sfz(i)*jq(i)),i=1,…,17 其中,sfz(i):表示第 i 位置上的身份證號碼數(shù)字值
jq(i):表示第 i 位置上的加權(quán)因子
jq(1)至 jq(17)依次為:7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
②求模 y
y=s Mod 11
③通過模得到對應(yīng)的校驗碼
模(y):0 1 2 3 4 5 6 7 8 9 10 校驗碼(jym):1 0X 9 8 7 6 5 4 3 2
小明編寫了一個驗證 18 位身份證校驗碼的 VB 程序,實現(xiàn)功能如下:單擊“校驗”按鈕 Command1,程序從數(shù)據(jù)庫讀取相關(guān)數(shù)據(jù)進行處理,在列表框 List1 中顯示身份證號碼及判斷 檢驗碼是否正確的結(jié)果.VB 程序運行界面如圖所示.
實現(xiàn)上述功能的 VB 程序如下,請回答下列問題:
(1)解決此問題所用的算法是
解析算法
解析算法
.(選填:解析算法或枚舉算法)
(2)請在橫線處填入合適的代碼.
Dim sfz(1To 100)As String'存放身份證號碼
Dim jq(1To 100)As Integer'存放加權(quán)因子
Dim jiegAs String'存放判斷結(jié)果
Private Sub Form_Load ( )
'本過程從數(shù)據(jù)庫中讀取身份證號碼、加權(quán)因子分別存儲到數(shù)組 sfz、jq 中,存儲在相應(yīng) 的數(shù)組中
'代碼略
End Sub
Private Sub Command1_Click ( )
For i=1To n'變量 n 指的是從數(shù)據(jù)庫讀取的身份證號碼個數(shù)
jieg=
①jy(sfz(i))
①jy(sfz(i))
List1.AddItem sfz(i)+““+jieg
Next i
End Sub
Function jy(sfz1As String) As String'對身份證的校驗碼進行校驗
Dim s As Integer,y As Integer,r As Integer
Dim djym As String
jym=“10X98765432“
For i=1To 17
r=Val(Mid(sfz1,i,1))*
②jq(i)
②jq(i)
s=s+r
Next i
y=s Mod 11
djym=
③mid(jym,y+1,1)
③mid(jym,y+1,1)
If djym=Mid(sfz1,18,1)Then
jy=“正確!“
Else
jy=“錯誤!“
End If
End Function.