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