公民身份號碼是特征組合碼，由十七位數(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）：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 （　?。?br />'本過程從數(shù)據(jù)庫中讀取身份證號碼、加權(quán)因子分別存儲到數(shù)組 sfz、jq 中，存儲在相應 的數(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.