国际标准书号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
划线处代码为①{#blank#}1{#/blank#}
②{#blank#}2{#/blank#}
③{#blank#}3{#/blank#}