我有一个条码：24001976516507131N0001   ，组成形式：（240）0197651（65）07131N0001   ，其中括号内的不进行验证，240不理会，65是这个条形码的校验码，用下面的函数可以得出校验码（感谢小鱼帮助），校验的是17位019765107131N0001，我现在想要的效果是：

在文本框输入24001976516507131N0001一个完整的条码后，利用函数进行校验，得出的校验码如果和文本框输入的校验码一致的话，标签显示OK+绿色，如果结果不一样，标签显示错误+红色，整个条码当中，校验位65，是在左起11-12位，，在文本框输入内容后回车，按键都可以，感谢大家帮忙了，

函数：

Dim jsh As String = args(0)

Dim s1,s2 As Integer
For i As Integer = 0 To 16
   Dim ss As Char = jsh.Chars(i)
   Dim s As Integer
   If Asc(ss)>= 65 Then
      s = Asc(ss) - 55
   Else
      s =Asc(ss)-48
   End If
   If (i Mod 2) = 0 Then
       s1=s1 +s
   Else
       s2=s2+s
   End If
Next
s1 =(s1*3+s2) Mod 100
Return s1

狐爸，能帮我再修改一下吗？在操作窗口上面，谢谢了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:修改.table