每一本正式出版的圖書(shū)都有一個(gè)ISBM號(hào)碼與之對(duì)應(yīng)，ISBN碼包括9位數(shù)字、1位識(shí)別碼和3位分隔符，格式如“x-xxx-xxxxx-x”，其中符號(hào)“-”是分隔符，最后一位是識(shí)別碼．識(shí)別碼的計(jì)算方法如下：首位數(shù)字乘以1加上次位數(shù)字乘以2…以此類推，用所得的結(jié)果除以11，所得的余數(shù)即為識(shí)別碼，如果余數(shù)為10，則識(shí)別碼為大寫字母X．例如ISBN號(hào)碼0-670-82162-4中的識(shí)別碼4是這樣得到的：對(duì)067082162這9個(gè)數(shù)字，從左至右，分別乘以1，2，…，9，再求和，即0×1+6×2+…+2×9=158，然后取158除以11的余數(shù)4作為識(shí)別碼．
小明用VB編寫了一個(gè)“驗(yàn)證ISBN識(shí)別碼”的程序，界面如圖所示，在列表框List1中顯示ISBN碼，點(diǎn)擊“識(shí)別”按鈕Command1后，在List2中顯示出識(shí)別碼錯(cuò)誤的ISBM碼．
實(shí)現(xiàn)上述功能VB代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Dim a（1 To 100）As String'存儲(chǔ)ISBN號(hào)碼
Private Sub Command1_Click（　?。?br />   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（　?。?br />'把所有的ISBN好保存在a數(shù)組中，代碼略
End Sub.