学进去

利用奇校验可以识别信息在传输过程中是否存在差错。基本原理是：在发送端发送的每一个字节编码后增加一个校验位，使得“1”的个数为奇数；在接收端统计每一个字节编码及其检验位中“1”的个数，若为偶数，则意味着传输过程中存在差错。
根据上述原理，小明对接收到的一组编码进行验证，如图a所示。

小明编写了VB程序，功能如下：在文本框Text1中输入接收端接收到的编码，单击“校验”按钮，在列表框List1中输出差错的个数及具体位置。程序运行界面如图b所示。

（1）根据程序段可知，校验按钮的对象名是     
（2）实现上述功能的VB 程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Private Sub Check_Click()
Dim a(1 To 900) As Integer, e(1 To 100) As Integer
Dim s As String, count As Integer, cnt As Integer
Dim i As Integer, j As Integer, k As Integer
s = Text1.Text: n = Len(s): cnt = 0
For i = 1 To n
a(i) = Val(Mid(s, i, 1))
Next i
For i = 1 To n \ 9
count = 0
k =      ①      
For j = k To k + 8

Next j
If count Mod 2 = 0 Then
      ②     
e(cnt) = i
End If
Next i
List1.AddItem "共有" + Str(cnt) + "个字节信息存在差错"
For i = 1 To cnt
List1.AddItem "第" + Str(i) + "处差错在第" +    ③    + "个字节"
Next i
End Sub