题目

某仓库物品代码格式为“X-XXX-XXXXX-Y”，其中“X”和“Y”均为0到9之间的数字，“Y”为校验码。校验码由前面9个X计算得到，计算方法为：从左边开始，第1个数字乘以1 加上第2个数字乘以2……依此类推，直到加上第9个数字乘以9，将该结果除以10，所得余数即为校验码。 小吴设计一个根据校验码校验物品代码的VB程序，功能如下：在文本框Text1中输入物品代码，单击“校验”按钮Command1，如果输入的校验码与计算所得的校验码一致，则输出“校验通过。”（如下左图所示），否则输出“校验不通过！”（如下右图所示）。   实现上述功能的VB程序如下 Dim s As String    '用于存储输入的物品代码 Dim t As String Dim i As Integer, j As Integer Dim sum As Integer      '用于存储计算校验码的累加和 Dim check_old As Integer    '用于存储输入物品代码中的校验码Y Dim check_new As Integer    '用于存储按照前面9个数字X计算所得的新校验码 Dim a(1 To 10)As Integer Private Sub Command1_Click()     '从物品代码中取出9个数字X依次存储到a(1)到a(9)中，取出校验码Y存储到a(10)中     s= Text     ⑴     j=0     For i=1 To 13         t=Mid(s,i,1)         If(t>="0")And(t<="9") Then             j=j+1             a(j)=Val(t)         End If     Next i     '计算新的校验码并和输入的校验码进行比较     sum=0     For i=1 To 9         sum=sum+      ⑵     Next i     check_new=       ⑶     check_old=a(10)     If check_old=check_new Then         Label1.Caption="校验通过。"     Else         Label1.Caption="校验不通过！ "     End If End Sub 加框处代码有错，请改正。 ⑴ ⑵ ⑶  答案：【1】Textl【2】a(i)*i【3】sum mod 10

查看本题答案和解析