每一本正式出版的图书都有一个ISBM号码与之对应，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中显示出识别码错误的ISBM码．
实现上述功能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 '①
               ch=Mid（st,j,1）
               If ch＞=“0“And ch＜=“9“Then
                    k=k+1
                    s=s+'②
               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.