题库 高中信息

题干

国际标准书号ISBN分成四组的10位数字组成,前面9位数字分组号、出版社和书序号三组,最后一位为校验码。校验的规则为从左边开始取出每位数字(前9位),取出的数字依次乘以10、9、8……2,把各次的乘积相加,用11减去这个和除11的余数即为校验码。在文本框Text1中输入条形码,单击“校验”按钮Cmd1,在文本框Text2输出结论。程序运行的界面如图所示:

实现上述功能的VB程序如下,但加框处代码有错,请改正。
Private Sub Command1_Click()
 Dim s As String,i As Integer,s1 As String,sum As Integer,t As Integer
 Dim jy As Integer
 s=Text1.Text
 t=0:sum=0
 For i=1 To Len(s)
s1=Mid(s,i,1)
If s1>=”0” And s1<=”9” Then
 ′①
 If t<10 Then
sum=sum+Val(s1)*(11-t)
 ElseIf t=10 Then
    ′②
  End If
End If
 Next i
 sum=11-sum Mod 11
 If  Then′③
Text2.Text=”该校验码中数字不是10位数!”
 Else
 If jy=“X” and sum=10 Then
Text2.Text=”校验通过”
 ElseIf val(jy)=sum then
Text2.Text=”校验通过”
 Else
Text2.Text=”校验不通过”
 End If
End If
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________
上一题 下一题 0.99难度 填空题 更新时间:2019-05-23 10:10:10

答案(点此获取答案解析)