公民身份号码是特征组合码，由十七位数字本体码和一位校验码组成．排列 顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字 校验码．数字校验码的计算过程如下三步所示：
①对身份证号码的前 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.