学进去

每一本正式出版的图书都有一个ISBN 号码与之对应，ISBN 码包括9位数字、1位识别码和3位分隔符，格式如“x-xxx-xxxxx-x”，其中符号“-”是分隔符，最后一位是识别码。识别码的计算方法如下：首位数字乘以1加上次位数字乘以2……以此类推，用所得的结果除以11，所得的余数即为识别码，如果余数为10，则识别码为大写字母X。例如 ISBN号码 0-670-82162-4中的识别码4是这样得到的：对067082162这 9个数字，从左至右，分别乘以 1，2，…，9，再求和，即0×1+6×2+……+2×9=158，然后取158除以11的余数4作为识别码。
小明用VB编写了一个“验证ISBN识别码”的程序，界面图所示，在列表框List1中显示ISBN码，点击“识别”按钮 Command1后，在List2中显示出识别码错误的ISBN码。

实现上述功能 VB 代码如下，但加框处代码有错，请改正_______、________。
Dim a(1 To 100) As String '存储 ISBN 号码
Private Sub Command1_Click()

Dim st As String, ch As String, k As Integer, i As Integer

Dim sum As Integer, number As Integer

For i = 1 To 100

st = a(i)

k = 0: s = 0

For j = 1 To Len(st) '① 

ch = Mid(st, j, 1)

If ch >= "0" And ch <= "9" Then

k = k + 1

s = s + Val(ch) * j  ' ② 

End If

Next j

number = s Mod 11

t = Mid (st, j+1, 1)

If t = "X" Then

tnum = 10

Else

tnum = Val(t)

End If If number <> tnum Then

List2.AddItem "第" + Str(i) + "条"

End If

Next i

End Sub
Private Sub Form_Load()

'把所有的 ISBN 号保存在 a 数组中，代码略

End Sub