题库 高中信息
题干
国际标准书号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
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________
实现上述功能的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
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________
答案(点此获取答案解析）
相关知识点