某编码由4个信息位和3个校验位组成，通过对编码信息进行验算，能够检测并纠正一位错误代码。该7位编码中b1～b4为信息位，p1～p3为校验位，位置如下：

编码中位	1	2	3	4	5	6	7
对位信息	p1	p2	b1	p3	b2	b3	b4

校验的方式如下，求校验值g1、g2、g3：
g1=p1Xor b1Xor b2Xor b4
g2=p2Xor b1Xor b3Xor b4
g3=p3Xor b2Xor b3Xor b4
其中Xor为异或运算，规则是：0Xor 0=0，0Xor 1=1，1Xor 0=1，1Xor 1=0，p1Xor b1是将p1、b1转换为二进制后按位进行异或运算，如7Xor 12的结果为11。
（1）若计算得到的校验值g1、g2、g3均为0，说明校验正确，数据无错误。例如：若7位编码为1101001，计算校验值g1、g2、g3值均为0，验证正确。
（2）若校验值g1、g2、g3不全为0，说明数据有错，出错位置为g3g2g1（二进制数表示），纠错的方法是对错误的位进行取反，即“0”变“1”，“1”变“0”。例如：若7位编码为1111001，计算校验值g1=1、g2=1、g3=0，不全为0，说明数据有错，错误位置在011（二进制数）位，即第3位，原位置上“1”应为“0”，正确编码为1101001。
小明为此编写了VB程序，程序运行时，在文本框Text1中输入编码值，单击“校验”按钮Command1后，在文本框Text2中输出运行结果，如图所示。

实现上述功能的VB程序如下，请回答下列问题：
（1）若按上述规则的7位编码为1001000，其中一位有错，则正确的编码应为

1001100

1001100

。
（2）请在横线处填入合适的代码。
Function check（s As String） As Integer
Dim i As Integer,g1As Integer,g2As Integer,g3As Integer
Dim c（1To 7）As Integer
For i=1To 7
c（i）=Val（Mid（s,i,1））
Next i
g1=c（1）Xor c（3）Xor c（5）Xor c（7）
g2=c（2）Xor c（3）Xor c（6）Xor c（7）
g3=c（4）Xor c（5）Xor c（6）Xor c（7）
If g1+g2+g3=0Then check=0Else check=

①

①

End Function
Private Sub Command1_Click （　　）
Dim i As Integer,m As Integer,Outs As String
m=

②

②

If m=0Then
Text2．Text=“验证正确，数据无错误“
Else
For i=1To 7
If i=m Then
Outs=Outs+Chr（Asc（Mid（Text1．Text,i,1）） Xor

③

③

）
Else
Outs=Outs+Mid（Text1．Text,i,1）
End If
Next i
Text2．Text=“第“+Str（m）+“位上数据有错误，正确编码应为：“+Outs
End If
End Sub