主题：生成条形码问题！

条码类型：Itf14应该是14位数字的，但生成器中只能是13位，14位就空白

如下图：

此主题相关图片如下：1.jpg


此主题相关图片如下：2.jpg

请大侠们帮忙看看原因。

第14位是自动生成的，不需要指定。

那怎么获取完整的条码呢？

mark 校验码

Dim s As String = "1234567890123"
Dim sum1 = 0
Dim sum2 = 0
For i As Integer = s.length-1 To 0 Step -2
    sum1 += val(s(i))
Next
For i As Integer = s.length-2 To 0 Step -2
    sum2 += val(s(i))
Next
Dim c = sum1*3+sum2
Dim jy = 10-c Mod 10
msgbox(jy)

非常感谢