Private Sub Command1_Click()

Dim a（0 To 7） As Integer

Dim i As Integer  ＇①

a（0）=1 

  For  i = 1 To 7    ＇②

   a（i）= 2 * a（i-1）+ 1    ＇③

  Next i

  Text1.Text = Str(a(i))     ＇④

End Sub

从对照表中找出与编号对应的字符完成加密，如下表显示了数字“2018”的加密过程：

小张按照上述原理，设计了一个解密的VB程序，功能如下:单击“解密”按钮Command1,将文本框Text1中的密文(字符数不超过11个)进行解密，并将解密后的明文在文本框Text2中输出。程序运行效果如图a所示。

Private Sub Command1_Click()

 Dim a As Integer,b As Integer

 a=10    ‘①

 b=20    ‘②

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

End Sub    ‘④

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

i=0

sum=0

while i<10:

    if i%2==0:

        sum+=i

        i+=1

    print(‘sum=’，sum)