某一条形码是由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,jsAs Integer,os As Integer,m As Integer
Js=0：Os=0
s=Text1．Text

If n＜＞13Then
Label1．Caption=“条形码位数错误!“
Else
For i=1To 12

If x Mod 2＜＞0Then
js=js+x
Else
os=os+x
End If
Next i
m=os*3+js
m=10-m Mod 10
Ifm=10  Then m=0
If m=Val（Mid（s,n,1）） Then
Label1．Caption=“校验码正确!“
Else
Label1．Caption=“校验码错误!“
End If
End If
End Sub