ENA13字库含调用类库

'定义条码的值，可以为12位——不带最后校验位，也可以是13位带校验的完全码 '但返回是13位完全码的。 '如果当初给定的13位码中的校验是错误的，将直接修改为正确的校验码 Dim code as String ="6923284400820" Dim AA As New ean13.ean13 AA.ean13code = TM AA.EAN13() code = AA.getean13