公民身份號碼是特征組合碼，由十七位數字本體碼和一位校驗碼組成．排列 順序從左至右依次為：六位數字地址碼，八位數字出生日期碼，三位數字順序碼和一位數字 校驗碼．數字校驗碼的計算過程如下三步所示：
①對身份證號碼的前 17 位數字的權求和
s=Sum（sfz（i）*jq（i）），i=1，…，17 其中，sfz（i）：表示第 i 位置上的身份證號碼數字值
jq（i）：表示第 i 位置上的加權因子
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）：0 1 2 3 4 5 6 7 8 9 10 校驗碼（jym）：1 0X 9 8 7 6 5 4 3 2
小明編寫了一個驗證 18 位身份證校驗碼的 VB 程序，實現功能如下：單擊“校驗”按鈕 Command1，程序從數據庫讀取相關數據進行處理，在列表框 List1 中顯示身份證號碼及判斷 檢驗碼是否正確的結果．VB 程序運行界面如圖所示．

實現上述功能的 VB 程序如下，請回答下列問題：
（1）解決此問題所用的算法是

解析算法

解析算法

．（選填：解析算法或枚舉算法）
（2）請在橫線處填入合適的代碼．
Dim sfz（1To 100）As String'存放身份證號碼
Dim jq（1To 100）As Integer'存放加權因子
Dim jiegAs String'存放判斷結果
Private Sub Form_Load （　　）
'本過程從數據庫中讀取身份證號碼、加權因子分別存儲到數組 sfz、jq 中，存儲在相應 的數組中
'代碼略
End Sub
Private Sub Command1_Click （　　）
For i=1To n'變量 n 指的是從數據庫讀取的身份證號碼個數
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.