Dim a(1 To 5) As Integer, i As  Integer

a(1)=1: a(2)=1

For i=3 To  5

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

Next i

Text1.Text=Str(a(i-1))

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

程序代码中,语句加框处有错，请改正。

Private Sub Command1_Click()

Dim s As String, sum As Integer

Dim i As Integer, j As Integer

List1.Clear

s = Text1.Text

n = len(s)

                               ’（1）

For i = 1 To n

  For j = 1 To n-i+1

     List1.AddItem        ’（2）

     sum = sum + 1

  Next j

Next i

List1.AddItem "总共有" + Str(sum)  + "个子串"

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} 

Private   Sub  Command1_click ( )

Dim  n  As  Integer , x  As  Integer

n = Val ( Text1．Text  )

x = n  Mod 10

n = x * 1000 + n \ 10

Text1．Text = Str ( n )

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    ‘④

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

Dim i As Integer    ——1

Dim s As Integer    ——2

s=1     ——3

For i=1 To 10

 s=s*i    ——4

Next i

Print s