【加试题】某一条形码是由13位数字组成的编码，其末位是校验码。条形码校验的方法如下：①除校验码之外，求其余12位编码中的奇数、偶数的数字之和；②将偶数的数字之和乘以3，加上奇数的数字之和；③取第②步得到结果的个位数字，用10减去该数字，将得到的结果存入变量m；④若m的值为10，则将m的值修改为0，否则不变；⑤若m和校验码相等则输出“校验码正确！”，否则输出“校验码错误！”。
现编写一个VB程序，实现如下功能：在文本框Text1中产生条形码数字序列，单击“校验”按钮Command1，在标签Label1中输出对应的校验信息，界面如图所示。实现上述功能的VB程序如下，但加框处代码有错，请改正
Private Sub Command1_Click()
Dim s As String, x As Integer
Dim n As Integer , js As Integer, os As Integer, m As Integer
Js=0: os=0
s = Text1.Text
{#blank#}1{#/blank#}
If n <> 13 Then
Label1.Caption = "条形码位数错误!"
Else
For i = 1 To 12
{#blank#}2{#/blank#}
If x Mod 2 <> 0 Then
js = js + x
Else
os = os + x
End If
Next i
m = os * 3 + js
{#blank#}3{#/blank#}
If m=Val(Mid(s,n,1)) Then
Label1.Caption = "校验码正确!"
Else
Label1.Caption = "校验码错误!"
End If
End If
End Sub
