某倉庫物品代碼格式為“X-XXX-XXXXX-Y”，其中“X”和“Y”均為0到9之間的數(shù)字，“Y”為校驗碼．校驗碼由前面9個X計算得到，計算方法為：從左邊開始，第1個數(shù)字乘以1加上第2個數(shù)字乘以2…依此類推，直到加上第9個數(shù)字乘以9，將該結(jié)果除以10，所得余數(shù)即為校驗碼．
小吳設(shè)計一個根據(jù)校驗碼校驗物品代碼的VB程序，功能如下：在文本框Text1中輸入物品代碼，單擊“校驗”按鈕Command1，如果輸入的校驗碼與計算所得的校驗碼一致，就輸出“校驗通過”（如圖甲所示），否則輸出“校驗不通過！”（如圖乙所示）．

實現(xiàn)上述功能的VB程序如下，加框處代碼有錯，請改正．
Dim s As String′用于存儲輸入的物品代碼
Dim t As String
Dim i As Integer,j As Integer
Dim sum As Integer′用于存儲計算校驗碼的累加和
Dim check_-old As Integer′用于存儲輸入物品代碼中的校驗碼Y
Dim check_-new As Integer′用于存儲按照前面9個數(shù)字X計算所得的新校驗碼
Dim a（1To 10）As Integer
Private Sub Command1_-Click （　?。?br />′從物品代碼中取出9個數(shù)字X依次存儲到a（1）到a（9）中，取出校驗碼Y存儲到a（10）中
s=（1）
j=0
For i=1To 13
t=Mid（s,i,1）
If （t＞=”0”） And（t＜=”9”） Then
j=j+1
a（j）=Val（t）
End If
Next i
′計算新的校驗碼并和輸入的校驗碼進行比較
sum=0
For i=1To 9
sum=sum+（2）
Next i
check_-new=（3）
check_-old=a（10）
If check_-old=check_-new Then
Label1．Caption=”校驗通過．”
Else
Label1．Caption=”校驗不通過！”
End If
End Sub.