Dim i As Integer, Sum As Integer

Dim a(1 To 11) As Integer

Sum = 6

a(11) = 49

For i = 10 To 1 Step -1

  a(i) = a(i + 1) - 1

  If a(i) Mod 3 = 0 Then Sum = Sum + a(i)

Next i

Text1.Text = Str(Sum)

该程序段运行后，文本框text1中显示的内容是（   ）

Dim a(1 To 10) As Integer, b(5 To 10) As Integer

a(1) = 71: a(2) = 73: a(3) = 90: a(4) = 79: a(5)  = 76

a(6) = 88: a(7) = 91: a(8) = 84: a(9) = 100: a(10) = 80

For i = 10 To 1 Step -1

  b((a(i) - 1) \ 10) = b((a(i) - 1) \ 10) + 1

Next i

该程序段运行后，数组元素b(7)的值是（  ）

校验的方式如下，求校验值g1、g2、g3：

g1 = p1 Xor b1 Xor b2 Xor b4

g2 = p2 Xor b1 Xor b3 Xor b4

g3 = p3 Xor b2 Xor b3 Xor b4

其中Xor 为异或运算，规则是：0 Xor 0 =0，0 Xor 1 =1，1 Xor 0 =1，1 Xor 1 =0，

p1 Xor b1 是将p1、b1 转换为二进制后按位进行异或运算，如7 Xor 12 的结果为11。

⑴若计算得到的校验值g1、g2、g3均为0，说明校验正确，数据无错误。例如：若7位编码为1101001，计算校验值g1、g2、g3值均为0，验证正确。

⑵若校验值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程序如下，请回答下列问题：

Private Sub Command1_Click()

 Dim a As Integer,b As Integer

 a=10    ‘①

 b=20    ‘②

 Text1.Text=“a+b=”+Val(a+b)    ‘③

End Sub    ‘④

发生“类型不匹配”错误时所执行的语句是（  ）