题目

【加试题】某一条形码是由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           If n <> 13 Then     Label1.Caption = "条形码位数错误!" Else     For i = 1 To 12              If x Mod 2 <> 0 Then         js = js + x       Else         os = os + x       End If     Next i     m = os * 3 + js             If m=Val(Mid(s,n,1)) Then       Label1.Caption = "校验码正确!"     Else        Label1.Caption = "校验码错误!"     End If End If End Sub 答案：【1】n = len(s)【2】x = Val(Mid(s, i, 1))【3】m =(10 - m Mod 10 )mod 10

查看本题答案和解析